Excel 2013 - farbig formatierte Zeilen werden nicht als leere Zeilen deklariert

Hallo, ich habe mir das folgende Makro geschrieben, das funktiert auch wunderbar - bis auf einen "Schönheitsfehler".

Per Clickbutton lösche ich alle (in Spalte D) mit dem Wort "Archiv" ausgefüllten Zellen und verschiebe diese in den Nachbarsheet "Archiv1". Soweit so gut.

Ich nutze eine der vorgefertigten Layoutvorlagen, um die Tabellenzeilen optisch besser zu trennen. Diese Formatvorlage färbt die einzelnen Zeilen farblich ein (hellblau/dunkelblau, hellblau/dunkelblau...usw.) Nun stelle ich fest, dass mein Makro deshalb nicht korrekt ausgeführt wird, weil Excel die farbliche Ausgestaltung einer Zelle/Zeile nicht als leere, sondern als belegte Zelle/Zeile definiert (Screenshot 2). Erst dort, wo die farbige Formatvorlage endet, und die übliche weiße, erste leere Zeile einsetzt, fügt das Makro die zu archivierende Datenzeile ein (Screenshot 3).

Man müsste das Makro also dahingehend anpassen, dass das Makro eine farbig formatierte Zeile/Zelle trotzdem als leere Zeile/Zelle definiert. Ist das möglich? Freue mich über jeden Tipp. Danke vorab...


Sub Bereinigen()

Dim zelle As Range, zeile As Long
For Each zelle In Range("D2:D50")

If zelle = "Archiv" Then
zeile = zelle.Row
Rows(zeile).Copy Destination:=Sheets("Archiv1").Cells(Rows.Count, 1).End(xlUp). _
_
Offset(1, 0)
Rows(zeile).Delete

End If
Next zelle
End Sub

Hat jemand eine Idee wie ich den Makro Code sp anpassen kann, dass beim Übergeben der Zeile in das Sheet "Archiv1" wurscht ist, ob die erste leere Zeile farbig ist oder nicht?
Thanx im Voraus

Offset(1, 0)

Sub GetNextFreeRowInListObject()
    Dim table As ListObject, rngNextFree As Range
    Set table = ActiveSheet.ListObjects(1)
    Set rngNextFree = table.ListRows(table.ListRows.Count).Range(1, 1)
    If rngNextFree.Value <> "" Then  
        With table.ListRows.Add
            Set rngNextFree = .Range(1, 1)
        End With
    Else
        Set rngNextFree = rngNextFree.End(xlUp).Offset(1, 0)
    End If
    MsgBox "Nächste freie Zelle: " & rngNextFree.Address  
End Sub

Offset(1, 0)