eliminar filas vacias

tengo algunos problemillas con un codigo que estoy utilizando para
eliminar filas vacias, de un total de 25155 que tengo en la hoja de
calculo:

Sub depurar()
'[a1].Select
For i = 1 To 28155
If Cells(i, 1).Text = "" Then
Cells(i, 1).EntireRow.Delete
End If
Next i
MsgBox "Actividad terminad@"
[a1].Select
End Sub

el asunto es que la macro corre sin aparentes problemas pero me deja
algunas filas o mejor dicho celdas vacias y no me explico por que no
las quita ???
la macro no me envia ningun mensaje de error y como comprenderan la
inmensa cantidad de celdas a verificar,es absurdo hacerla una por una.

otro codigo que tambien me presenta problemillas :-) ,je,je es este:

Sub EliminarVacias()
[a1].Select
Do While ActiveCell.Row < 28155
If ActiveCell.Text <> "" Then
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.EntireRow.Delete
'Exit Do
End If
Loop
[a1].Select
MsgBox "Filas Vacias Eliminadas", , "aviso para " &
Application.UserName
End Sub

el asunto con esta macro es que efectivamente va quitando las filas de
las celdas vacias y como las va recorriendo,resulta que en la fila
24,xxx (cuando ya no hay datos),la macro sigue corriendo
indefinidamente,ya que aun no llega ala 28155.
por lo que tengo que presionar "Escape" 2 veces para detener la macro.
y la verdad como ya me hice "camotes",perfiero consultar a los
!!Buenos!!

salu2 y gracias anticipadas

pd.-tambien intente otra variante pero me sucede lo mismo que con la
1º macro [me deja filas vacias] :-(
Sub DepurarM()
Dim celda As Range
[a1:a28155].Select
For Each celda In Selection
If celda.Text = "" Then
celda.EntireRow.Delete
End If
Next celda
[a1].Select
MsgBox "Filas Vacias Eliminadas"
End Sub

o sea que efectivamente,!!!si estoy hecho "Camotes"!!!..a veces la
logica anda por los suelos (y la inteligencia y astucia tambien)