Eliminar filar partiendo de celdas si están vacías o no

Antes que nada quisiera agradecerles de antemano su ayuda.

Necesito eliminar toda una fila partiendo de que si una celda esta vacía o no.

Tengo este código que me estaba funcionando muy bien:

Range("a65000").Select
Selection.End(xlUp).Select
UltimaFila = ActiveCell.Row
Range("e2").Select
For I = 1 To UltimaFila
If ActiveCell = "" Then
Selection.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Next

Pero me esta dejando filas con información.