fixing error type mismatch filter data in table based two values

Leopard

Two small problems here... 1) you set your variables as Long (numbers) but F1 and G1 contain strings; 2) The default operator for filters is xlAND (but I think you want an OR on the F1 and G1 values).

The changes in bold below should make the code work:

Sub VV()
Dim a As String, b As String
a = Sheets("LTSB").Range("F1").Value 'Change to cell of your choice
b = Sheets("LTSB").Range("G1").Value 'Change to cell of your choice
Sheets("LTSB").ListObjects("Tabel1").Range.AutoFilter Field:=1, Criteria1:= _
 a, Operator:=xlOr, Criteria2:=b
End Sub

Addition 1:

To remove the filter, you could add a button whose code includes:

ActiveSheet.ListObjects("Tabel1").AutoFilter.ShowAllData

Addition 2:

If you want to use a 1-D array for the filter criteria, I have since foiund that you can use one with xlFilterValues. In the attached workbook, the module VV has been replaced with this code and will filter the data then remove the filtering after the message:

Sub VV()
'
' Use an array and xlOr for filter criteria
'

Sheets("LTSB").ListObjects("Tabel1").Range.AutoFilter _
 Field:=1, _
 Criteria1:=Array("AA", "BB", "CC"), _
 Operator:=xlFilterValues

MsgBox "Now remove filters..."

ActiveSheet.ListObjects("Tabel1").AutoFilter.ShowAllData

End Sub