Macro trovata navigando in rete per elimiinare le righe vuote in un foglio di excel

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

Per controllare più righe cambiare 100 nel numero desiderato,
ic è il numero della colonna su cui si fa il test se vuoto o no. (1=A, 2=B, ecc.)