Gibt es eine schnellere Möglichkeit, Zeilen zu löschen?

Ich muss nur Zeilen mit ungeraden Zeilennummern von Zeile 3 bis zur letzten Zeile mit Daten darin löschen

Below Code funktioniert, ist aber sehr langsam:

Dim toDelete As Range
For icount = endRow To 3 Step -2
    If toDelete Is Nothing Then
        Set toDelete = Rows(icount)
    Else
        Set toDelete = Union(toDelete, Rows(icount))
    End If
Next
toDelete.Delete shift:=xlUp