Sub Data_Manager()
Application.ScreenUpdating = False
With ThisWorkbook.Sheets(1)

Dim X As Long 'Пробег по строкам Лотов
Dim Y As Long 'Пробег по строкам Отчёта
Dim shtX As Worksheet 'Для обращений к листу Отчёты

Set shtX = ThisWorkbook.Sheets(2)

For X = 3 To .Cells(Rows.Count, 1).End(xlUp).Row
     For Y = 3 To shtX.Cells(Rows.Count, 1).End(xlUp).Row
         If .Cells(X, 1).Value = shtX.Cells(Y, 1).Value Then
             .Cells(X, 2).Value = shtX.Cells(Y, 4).Value
             .Cells(X, 3).Value = shtX.Cells(Y, 2).Value
             .Cells(X, 4).Value = shtX.Cells(Y, 3).Value
             Exit For
         End If
     Next Y
Next X

End With
Application.ScreenUpdating = True
End Sub