Danke für deine Bemühung
Ich habe es jetzt anderst gelöst:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim a As Byte
Dim letzteZeile As Byte

With Worksheets("Tabelle1")
letzteZeile = .Cells(.Rows.Count, 1).End(xlUp).Row
For a = 10 To letzteZeile
If a Mod 2 = 0 Then
If .Cells(a, 4).Value <> "" Then
ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=4, Criteria1:= _
"<>"
End If
End If
Next
End With

End Sub

Wie du,im Excel, Siehst, habe ich eine Tabelle mit Überschrift eingefigt.
Wie kann ich die Schleife nur duch den Tabellenbereich laufen lassen, egal wo die Tabelle beginni bzw enden?Ich wollt das Excel anhängen, geht aber nicht.

Gruss Walter