Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3")) Is Nothing Then
Application.EnableEvents = False
Dim FoundNomer As Range
Set FoundNomer = Columns("H").Find(Target, , xlValues, xlWhole)
FoundNomer.Offset(, 1).Resize(4, 3).Copy Range("D3")
End If
Application.EnableEvents = True
End Sub
Макрос срабатывает на изменение значения в ячейке В3