Office: VBA löscht Spalte anstatt Zeile

Hallo Forum
Ich habe dank eurer Hilfe bereits einen guten VBA Code erhalten, der mir Zeile anhand eines Wertes löscht. Es sind drei Tabellen, bei denen Zeilen nach Auftragsnummer gelöscht werden sollen. ALlerdings löscht es mir bei der 3. Tabelle anstatt die Zeile die Spalte. Der Code ist ja 3 mal gleich und bei den ersten beiden funktioniert es bestens. Wisst ihr warum es bei der 3. nicht funtioniert? Hier der Code:
With Worksheets("Offene Zahlungen Arbeiten")
.ListObjects(1).Range.AutoFilter Field:=1, Criteria1:=.Range("G1")
.ListObjects(1).DataBodyRange.Columns(1).SpecialCells(xlCellTypeVisible).Delete
.ListObjects(1).Range.AutoFilter Field:=1
End With

With Worksheets("Offene Zahlungen Material")
.ListObjects(1).Range.AutoFilter Field:=1, Criteria1:=.Range("G1")
.ListObjects(1).DataBodyRange.Columns(1).SpecialCells(xlCellTypeVisible).Delete
.ListObjects(1).Range.AutoFilter Field:=1

End With

With Worksheets("Offene Zahlungen Kopfdaten")
.ListObjects(1).Range.AutoFilter Field:=2, Criteria1:=.Range("X1")
.ListObjects(1).DataBodyRange.Columns(1).SpecialCells(xlCellTypeVisible).Delete
.ListObjects(1).Range.AutoFilter Field:=2