Favor expertos me ayuda con este código de una macro.-

'Selecciona la hoja "movimiento"

Sheets("movimiento").Select

'obtiene la última fila de la columna "A"
intLastRow = Columns("A:A").Range("A65536").End(xlUp).Row

'Inicia un ciclo que va desde la última fila hasta la fila 1, de una en una
For r = intLastRow To 1 Step -1

'Si las celdas de la fila están en blanco, entonces borra la fila
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete

' Pasa a la fila anterior
Next r

No olvides finalizar