With sht
a = .Range(.Cells(4, 1), .Cells(22, 5)).Value
End With
Set dic = CreateObject("scripting.dictionary")
    
    For i = 4 To UBound(a)
        s = a(i, 2) & "|" & a(i, 3)
        dic(s) = a(i, 4)
    Next
    
With sht
a = rab.Sheets("OSNOVA").[a1].CurrentRegion.Value
End With
   
   
     For i = 2 To UBound(a)
        s = a(i, 2) & "|" & a(i, 5)
  a(i, 8) = dic(s)
   
    Next
rab.Sheets("OSNOVA").[a1].Offset(1).Resize(UBound(a), 8).Value = a

Sub Primer_2()

Dim rab, baza As Workbook
Dim sht As Worksheet
Dim rRange, rCell As Range
Dim i&, a()
        Set rab = ActiveWorkbook
    LastOSNOVA = Cells(Rows.Count, 1).End(xlUp).Row

Set baza = Workbooks("baza.xlsm")

    For Each sht In baza.Worksheets

     If sht.Range("A1").Value = rab.Sheets("OSNOVA").Range("I1").Value Then
        sht.Activate
        NewName = sht.Name
        BookName = ActiveWorkbook.Name
            Lastbaza = Cells(Rows.Count, 1).End(xlUp).Row
            
       With CreateObject("scripting.dictionary")

        a = baza.NewName.Range(Cells(4, 1), Cells(22, 5)).Value
        For i = 2 To UBound(a): .Item(a(i, 2) & "|" & a(i, 3)) = a(i, 3): Next

        a = rab.Sheets("OSNOVA").[a1].CurrentRegion.Value
        For i = 2 To UBound(a): a(i, 1) = .Item(a(i, 2) & "|" & a(i, 5)): Next

        rab.Sheets("OSNOVA").Cells(2, 7).Resize(UBound(a), 1) = a
    End With
        End If
    Next

End Sub

a = baza.NewName.Range(Cells(4, 1), Cells(22, 5)).Value

Sub Primer()

Dim rab, baza As Workbook
Dim sht As Worksheet
Dim rRange, rCell As Range
        Set rab = ActiveWorkbook
    LastOSNOVA = Cells(Rows.Count, 1).End(xlUp).Row

        Set baza = Workbooks.Open("baza.xlsm")

    For Each sht In baza.Worksheets

     If sht.Range("A1").Value = rab.Sheets("OSNOVA").Range("I1").Value Then
        sht.Activate
        NewName = sht.Name
        BookName = ActiveWorkbook.Name
            Lastbaza = Cells(Rows.Count, 1).End(xlUp).Row
                rab.Sheets("OSNOVA").Range("G2").FormulaLocal = _
        "=ВПР(СЦЕПИТЬ(B2;F2);" & Workbooks(BookName).Sheets(NewName).Range("A:G").Address(External:=True) & ";4;0)"
                rab.Sheets("OSNOVA").Range("H2").FormulaLocal = _
        "=ВПР(СЦЕПИТЬ(B2;F2);" & Workbooks(BookName).Sheets(NewName).Range("A:G").Address(External:=True) & ";5;0)"
    
        rab.Activate
                Sheets("OSNOVA").Range("G2:H2").AutoFill Destination:=Range(Cells(2, 7), Cells(LastOSNOVA, 8))

        End If
    Next

End Sub

Cells(PRow,LastCol)=Cells(PRow,KodColumn)&Cells(PRow,StranaColumn)&Cells(PRow,FCColumn

 Sub proba()
Dim Str, i As Integer
    StrokaLast = Cells(Rows.Count, 1).End(xlUp).Row
With Application: .ScreenUpdating = False: .DisplayAlerts = False: .EnableEvents = False: End With
    i = 2
  For i = 2 To StrokaLast
        Cells(i, 4).FormulaArray = _
        "=MIN(IF((RC1=Итог.xls!R2C1:R23C1)*(RC2=Итог.xls!R2C2:R23C2)*(RC3=Итог.xls!R2C3:R23C3)*(Итог.xls!R2C4:R23C4),Итог.xls!R2C4:R23C4))"
        Cells(i, 4).Value = Cells(i, 4).Value
  Next
With Application: .ScreenUpdating = True: .DisplayAlerts = True: .EnableEvents = True: End With
End Sub

TD.Sheets("AN" )  .Range("W2".FormulaR1C1 = _
 "=VLOOKUP(RC[-20],[разрешиловка.xlsx]Лист1!R4C1:R6C6,3,0)"