Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$1" Then
With Range("A1").CurrentRegion
.AutoFilter
If Target.Text <> "" Then
.Range("$A$1:$B$9455").AutoFilter Field:=2, _
Criteria1:="=*" & Target & "*", _
Operator:=xlAnd
End If
End With
End If
End Sub