Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> [b1] Then Exit Sub
Rows("4:10000").Hidden = False
Lr = Range("A10000").End(xlUp).Row
On Error Resume Next
first = WorksheetFunction.Match([b1].Value, [c:c], 0)
last = WorksheetFunction.Match("שם הסניף:", Range("B" & first + 2 & ":B" & Lr), 0) + first - 1
If last = 0 Then last = Lr
Rows("4:" & Lr).Hidden = True
Rows(first & ":" & last).Hidden = False
End Sub
