Pasted

Sub DeleteEmptyRows() 
    SelectedRange = Selection.Rows.Count 
    ActiveCell.Offset(0, 0).Select 
    For i = 1 To SelectedRange 
        If ActiveCell.Value = "" Then 
            Selection.EntireRow.Delete 
        Else 
            ActiveCell.Offset(1, 0).Select 
        End If 
    Next i 
End Sub