Makro in Excel soll bestimme Zeilen löschen, oberste Zeile aber nicht

[MSCom]

Hallo,

ich mache meine ersten VBA-Versuche und scheitere nun bei einer Kleinigkeit, wie ich denke, aber ich finde das Problem einfach nicht.

Ich möchte in einer Excel-Tabelle Zeilen löschen, die in einer bestimmten Spalte einen definierten Wert haben. Excel soll dafür die Tabelle filtern und die Zeilen löschen, das hat zuerst auch gut geklappt, dann habe ich aber festgestellt, dass die erste Zeile mit gelöscht wurde, was natürlich als Tabellenkopf nicht sein soll. Nun habe ich weiter gebastelt, zuerst bekam ich den Fehler Objekt nicht defniert (oder so ähnlich) und jetzt bekomme ich den folgenden Fehler:
"Fehler beim kompilieren:
unzulässiger oder nicht ausreichend definierter Verweis"

Die Größe der Tabelle soll variabel erkannt werden. Nach dem löschen der Zeilen soll im Filter wieder alles angezeigt werden.

Bis zum filtern (der zu löschenden Werte) funktioniert das nachfolgende Makro, danach kommt der Fehler:
---------------
Sub stornierte_entfernen()
'
' stornierte_entfernen Makro
'
'
ActiveSheet.Range("a1").End(xlDown).End(xlToRight).AutoFilter Field:=3, Criteria1:= _
"STORNIERT"
.UsedRange("b1").End(xlDown).End(xlToRight).Select.SpecialCells(xlCellTypeVisible).Select
Selection.Delete Shift:=xlUp
ActiveSheet.Range("a1").End(xlDown).End(xlToRight).AutoFilter Field:=3
End Sub
--------------

Ich hoffe das war ausreichend klar beschrieben. Kann mir jemand weiterhelfen?

Viele Grüße