If you can use vba I'd do it like below.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ar
If Not Intersect(Target, [A2]) Is Nothing Then
If Len(Target.Value) = 0 Then
ListObjects(1).AutoFilter.ShowAllData
Else
ar = ListObjects(1).DataBodyRange.Value
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(ar)
If ar(i, 3) = Target.Value Then
.Item(CStr(ar(i, 1))) = 1
End If
Next
ListObjects(1).Range.AutoFilter 1, .Keys, 7
End With
End If
End If
End Sub
See attached.
If you have access to PowerQuery, there are other options.
Bookmarks