Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rw
Application.EnableEvents = False
If [E2] <> vbNullString Then
With Sheets("Base")
rw = Application.Match([E2], .Columns(1), 0)
Range("b2") = .Cells(rw, 2)
Range("b3") = .Cells(rw, 3)
Range("c3") = .Cells(rw, 4)
Range("b4") = .Cells(rw, 5)
Range("b5") = .Cells(rw, 6)
Range("c5") = .Cells(rw, 7)
Range("b6") = .Cells(rw, 8)
End With
End If
Application.EnableEvents = True
End Sub