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