Sub b()
Dim i As Integer
Dim j As Integer
Set Moi_makrosy = ThisWorkbook
Set List1 = ThisWorkbook.Sheets("1")
Set Iul = ThisWorkbook.Sheets("2")
' Заполнение столбцов
    For i = 3 To 20
        For j = 3 To 20
        If List1.Cells(1, 1) <> Iul.Cells(j, 1) Then
        Exit For
        
        ElseIf List1.Cells(1, 1) = "" Then
        Exit For
        
        
        ElseIf List1.Cells(1, 1) = Iul.Cells(j, 1) Then
         List1.Cells(i, 1) = Iul.Cells(j, 2)
         List1.Cells(i, 2) = Iul.Cells(j, 3)
        
        End If
        Next j
    Next i
End Sub

Sub DDD()
Dim SH1 As Worksheet, SH2 As Worksheet
Set SH1 = ThisWorkbook.Sheets("1")
Set SH2 = ThisWorkbook.Sheets("2")

 
For i = 3 To SH3.Cells(Rows.Count, 1).End(xlUp).Row
If SH2.Range("A" & i).Value = SH1.Range("A1").Value Then
SH1.Range("A" & i) = SH2.Range("B" & i)
SH1.Range("B" & i) = SH2.Range("C" & i)

End If
Next
End Sub