prova con questa macro:
Codice:
Sub elimina()
ic = 1
ir = 1
For x = 1 To 100
If Cells(ir, ic) = Empty Then
Cells(ir, ic).EntireRow.Delete
End If
ir = ir + 1
x = x + 1
Next
End Sub
se il controllo devi farlo su più di 100 righe, cambia il valore
ic è il numero della colonna su cui la macro controlla le celle vuote (1=>A, 2=>B etc)