Macro to Delete Empty Rows on Multiple Sheets

[squeakums]

I have this macro but I want to edit several sheets within the code and so it is telling me to modify the code for each. Is there a simple code that I can write per spreadsheet this edits within the macro to delete any rows that are empty data? Below is the one I am currently using.

Dim LastRowIndex As Integer
    Dim RowIndex As Integer
    Dim UsedRng As Range
 
    Set UsedRng = ActiveSheet.UsedRange
    LastRowIndex = UsedRng.Row - 1 + UsedRng.Rows.Count
    Application.ScreenUpdating = False
 
    For RowIndex = LastRowIndex To 1 Step -1
        If Application.CountA(Rows(RowIndex)) = 0 Then
            Rows(RowIndex).Delete
        End If
    Next RowIndex
 
    Application.ScreenUpdating = True

 

[mumps]

Try:

Sub DeleteRows()
    ActiveSheet.Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

 

[squeakums]

It works only when there spaces; but errors out when there are no spaces to delete. I would like for it to continue with the process if nothing is found.

 

[mumps]

Try:

Sub DeleteRows()
    Dim LastRow As Long
    LastRow = Range("A:A").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    If WorksheetFunction.CountA(Range("A1:A" & LastRow)) < LastRow Then
        Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    End If
End Sub

 

[squeakums]

I added an on error next statement prior to the first formula

 

[mumps]

Try the macro in Post #4.