Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range
If Target.Address = "$D$1" Then
Set Cel = [D6:D125].Find(Target.Value)
If Cel Is Nothing Then Exit Sub
Cel(1, 3).Value = [F5].Value
Cel(1, 4).Value = [G5].Value
Cel(1, 8).Value = [K5].Value
End If
End Sub