Private Sub CommandButton1_Click()
Dim Li, Co, LiOr, CoOr As Integer
Dim StrTest As String
Li = ActiveWindow.RangeSelection.Rows.Count
Co = ActiveWindow.RangeSelection.Columns.Count
LiOr = ActiveWindow.RangeSelection.Row
CoOr = ActiveWindow.RangeSelection.Column
ActiveSheet.Cells(LiOr, CoOr).Select
Do While ActiveCell.Row <= Li
StrTest = ''
For j = 1 To Co
StrTest = StrTest & ActiveCell.Offset(0, j - 1).Text
Next j
If StrTest = '' Then
Rows(ActiveCell.Row).Delete
Li = Li - 1
Else
ActiveCell.Offset(1).Select
End If
Loop
End Sub