السلام عليكم
أخي العزيز
ضع الكود التالي في حدث الورقة
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$H$2" Then Exit Sub
LR = Cells.SpecialCells(xlCellTypeLastCell).Row - 1
Range("A2:E" & LR).Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=[H2]
Selection.AutoFilter Field:=1, Criteria1:="="
End Sub