hai ragione... provando non me ne ero accorta.. così dovrebbe funzionare (ci giriamo intorno eh!
)
Codice:
Sub elimina()
ic = 1
ir = 1
For x = 1 To 100
If Cells(ir, ic) = Empty Then
Cells(ir, ic).EntireRow.Delete
ir = ir - 1
End If
ir = ir + 1
x = x + 1
Next
End Sub