eliminar filas vacias

[cochi]

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

saludos

Cochi

[Manuel Maza]

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

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