Set wb2 = Workbooks.Open("C:\******\Выгрузки\отчет.xlsm")
MsgBox wb2.FullName
fullPath = wb2.FullName
Set ws2 = wb2.Sheets("Sheet1")
lLastRowb2 = ws2.Cells(ws2.Rows.Count, "H").End(xlUp).Row      ' последняя заполенная строка в книге с курсами

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False

ws2.Columns("X").Insert

For i = 14 To lLastRowb2
    Cells(i, 24) = Cells(i, 8.Value & Cells(i, 23).Value
Next i


Set formulaRange142 = ActiveWs.Range("EL4:EL" & lLastRowb1)
formulaRange142.formula = "=VLOOKUP($K4&$EL$3,'[wb2]ws2'!$X:$Z,3,FALSE)"

Dim cell As Range
    For Each cell In Range(Cells(1, 10), Cells(lLastRow, 10))  
       
        If (CStr(cell.Value) = num_t) Then
            If (cell.Offset(0, -5).Value = "123") Then 
                If carvar = 10 Then                
                    If Not IsEmpty(cell.Offset(0, 15).Value) Then 
                        If (cell.Offset(0, 15).Value = 0) Then
                          cell.Offset(0, 15).Value = ""
                        End If
                    End If
                End If
            End If
        End If
    Next cell

lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("Ëèñò1").Activate

Debug.Print lLastRow

FIO = "Ãóñåâà Àìèíà ßðîñëàâîâíà"
znach = 0
dates = 2024

Dim cell As Range
For Each cell In Range(Cells(1, 1), Cells(lLastRow, 1))

If cell.Value = FIO And cell.Offset(0, 1).Value = znach And Year(cell.Offset(0, 2).Value = dates) Then

cell.Offset(, 3).Value = "123"

Debug.Print cell.Value
Debug.Print cell.Offset(0, 1).Value
Debug.Print (Year(cell.Offset(0, 2).Value))

End If
    Next cell