Criteria in Tabelle 2 eintragen

mit dem VBA

Sub FilterCriteria()
Dim iRow As Integer, iCol As Integer
iRow = Range("A1").CurrentRegion.Rows.Count + 2
iCol = 1
Do Until IsEmpty(Cells(1, iCol))
With ActiveSheet.AutoFilter.Filters(iCol)
If .On Then
Cells(iRow, iCol).Value = .Criteria1
End If
End With
iCol = iCol + 1
Loop
Range("A1").CurrentRegion.SpecialCells _
(xlCellTypeVisible).Copy Cells(iRow + 1, 1)
End Sub

kann man die Autofilterkriterien im gleichen Tabellenblatt, in dem der Autofilter aktiv ist, anzeigen lassen.
Was muss ich anstellen, das diese Daten nicht in Tabelle1, sondern in Tabelle2 stehen?

Bitte um eure Hilfe