automatic removal of empty rows

[Lichress]

Hello,tell, please, it is possible to create such macro для removal empty rows?

[Logit]

.
.
Paste into a Routine Module, activate from command button on sheet :

Sub DeleteBlankRows1()


'Deletes the entire row within the selection if the ENTIRE row contains no data.
'http://www.ozgrid.com/VBA/VBACode.htm




'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


            Selection.Rows(i).EntireRow.Delete


        End If


    Next i


        .Calculation = xlCalculationAutomatic


        .ScreenUpdating = True


    End With


End Sub

[Lichress]

thanks

[Logit]

You are welcome !

Cheers.