See if this will do the job. As I understand it, you
have several sheets with blank rows and you want those
blank rows deleted. If you have formulas in those rows
that produce zero length strings ("") then they will not
be deleted. If you want those deleted also, the code
will need to be modified. One other thing, the rows to
be hidden are based on the last row in column A with
data in it. If column A is not equal to the longest row,
the the code will need to be modified. Try it on a copy
before running it on the actual workbook.
Sub delEmpRw()
Dim s As Long, i As Long
For s = 1 To ThisWorkbook.Sheets.Count
With Sheets(s)
lsRw = .Cells(Rows.Count, 1).End(xlUp).Row
For i = lsRw To 2 Step -1 'Assumes Header Row
If WorksheetFunction.CountA(.Range("A" & i & ":" _
& .Cells(i, Columns.Count).End(xlToLeft).Address)) = 0 Then
.Rows(i).Delete
End If
Next
.Rows(Sheets(s).Cells(Rows.Count, 1) _
.End(xlUp).Row + 1 & ":" & Rows.Count).Hidden = True
x = 0
End With
Next
End Sub