Selected Answer
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