Sub test()
Dim A, B, i, j
A = Sheets(1).Range("a1").CurrentRegion
B = Sheets(2).Range("a1").CurrentRegion
For i = 1 To UBound(A)
For j = 1 To UBound(B)
If A(i, 2) = B(j, 1) Then
A(i, 1) = B(i, 2)
A(i, 3) = B(i, 3)
A(i, 4) = B(i, 4)
End If
Next j
Next i
Sheets(1).Range("a1").Resize(i - 1, 4) = A
End Sub