Filter im TB per VBA lösen

Sub kopiere Ich Daten in ein Tabellenblatt "Archiv".
Nun setzt der Anwender leider manchmal einen Filter im TB Archiv, was dazu führt, das die  _
letzte Zeile eben nicht die letzte Zeile ist, sondern das der Bereich nach der Filterung die erste Zeile ist.
Wie kann ich per VBA z.B. nach   Sheets("Archiv").Select , die Filterung aus allen! Spalten  _
nehmen?
Gruß
Reinhardt

Sub Archiv()
Sheets("Stempelkarte").Select
Range("AA29:AL61").Select
Selection.Copy
Sheets("Archiv").Select
Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub