Autofilter "reseten"

Private Sub CommandButton1_Click()
Selection.Autofilter Field:=1
Selection.Autofilter Field:=2
Selection.Autofilter Field:=3
Selection.Autofilter Field:=4
Selection.Autofilter Field:=5
usw.
End Sub

Mein Problem ist folgendes: Funktionieren tut der Button, jedoch ist meine Tabelle 49 Spalten breit und mittlereweile enthält sie schon über 3000 Zeilen.
Wenn ich nun den "Resetbutton" drücke dauert es ne halbe Ewigkeit bis alle Filterbedingungen wieder zurückgesetzt sind.
Gibt es hierfür eine "schnellere" Lösung oder muss ich es so in Kauf nehmen?
Thx im Vorraus