VBA – Remove Blank Rows

as below:


Sub DeleteBlankRows1()

‘Deletes the entire row within the selection if the ENTIRE row contains no data.


‘We use Long in case they have over 32,767 rows selected.

Dim i As Long


    ‘We turn off calculation and screenupdating to speed up the macro.

    With Application

        .Calculation = xlCalculationManual

        .ScreenUpdating = False

    ‘We work backwards because we are deleting rows.

    For i = Selection.Rows.Count To 1 Step -1

        If WorksheetFunction.CountA(Selection.Rows(i)) = 0 Then


        End If

    Next i


        .Calculation = xlCalculationAutomatic

        .ScreenUpdating = True

    End With

End Sub