Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Range("D5:E9"), Target) Is Nothing Then Exit Sub
Range("B1").Formula = "=ВПР(B" & ActiveCell.Row & ";клиенты!A:C;2;0)"
Range("C1").Formula = "=ВПР(B" & ActiveCell.Row & ";клиенты!A:C;3;0)"
Range("B2").Formula = "=ВПР(C" & ActiveCell.Row & ";менеджеры!A:C;2;0)"
Range("C2").Formula = "=ВПР(C" & ActiveCell.Row & ";менеджеры!A:C;3;0)"
End Sub