Ciao prova questa:
Sub elimina_righe()
Dim Intervallo As Range
Dim Righe, R, Colonne, C, FL As Boolean
Sheets("Foglio1").Select
Set Intervallo = ActiveSheet.UsedRange
Righe = Intervallo.Rows.Count
Colonne = Intervallo.Columns.Count
For R = Righe To 1 Step -1
FL = False
For C = 1 To Colonne
If Intervallo(R, C) <> "" Then
FL = True
End If
Next
If FL = False Then
Intervallo(R, 1).EntireRow.Delete
End If
Next
End Sub
[Modificato da Berna11 03/11/2015 20:24]
Un saluto
Berna11
-----------
Excel-2007-2010