Tablolarda filtre kriteri olarak dizi kullanma……
Sub LISTELE()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim son As Integer
Dim dizi() As String
Set ws1 = Sheets("Sayfa1")
Set ws2 = Sheets("Sayfa2")
son = ws1.Cells(Rows.Count, 9).End(xlUp).Row
ReDim dizi(son - 2)
For i = 2 To son
dizi(i - 2) = ws1.Range("I" & i)
Next
ActiveSheet.ListObjects("Sorgu1").Range.AutoFilter Field:=2, Criteria1:=dizi, Operator:=xlFilterValues
End Sub