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