Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$E$4" Then Exit Sub
If Target.Value = "" Then ActiveSheet.ListObjects("TI").Range.AutoFilter: Exit Sub
ActiveSheet.ListObjects("TI").Range.AutoFilter Field:=3, Criteria1:="=" & CStr(Target.Value) & "*", Operator:=xlAnd
End Sub