eliminar filas vacias

Hola,

te envio la macro

Sub EliminaFilasVacias()
LastRow = ActiveSheet.UsedRange.Row - 1 + _
ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = LastRow To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub

"cochi" wrote in message
news:

hola, necesito el codigo para agregar un macro que elimine todas las filas
vacías de una hoja.

saludos

Cochi