¿Hay una forma más rápida de eliminar filas?

Solo necesito eliminar filas con números impares de fila 3 a la última fila con datos

El siguiente código funciona pero es muy lento:

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