Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, Source, R&, C&
On Error Resume Next
Select Case Target.Column
Case 1
Set rng = Range(Cells(Target.Row, 2), Cells(Target.Row, 7))
Select Case Target.Value
Case "": rng = ""
Case Else
Source = Sheets(2).UsedRange.Value
For R = 1 To UBound(Source)
If Source(R, 1) = Target.Value Then
For C = 2 To UBound(Source, 2)
rng(1, C) = Source(R, C)
Next
Exit For
End If
Next
End Select
End Select
End Sub