macro not giving desired output

Hello All,

I have attached an excel spreadsheet wherein it has three worksheet with same data structure. I want macro written and working for all three worksheets as currently it is working for one sheet at aa time and has to be invoked again and again
------code starts from here----------

Sub DeleteBlankRows()
Dim LASTROW As Long
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
LASTROW = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
  
For i = LASTROW To 1 Step -1
    If Application.CountA(Cells(i, 1).EntireRow) = 0 Then
       Cells(i, 1).EntireRow.Delete
    End If
Next i

Application.ScreenUpdating = True
Next ws
End Sub

--------code ends here-----

Any help provided would be appreciated.

Regards

You also forgot to follow the forum rules & wrap your VBA code (Rule 3)

Please take a couple of minutes and read ALL theForum Rules then wrap your VBA code (Rule 3)


The easiest way to use code tags is to click on the # icon in the text formatting window

This will add
[ Code] [\ Code]
to your message window with the cursor between the ][ brackets - this is were your VBA code goes.
You will not see your code displayed correctly until you preview or post your message

Note:- there is no space before the word Code like I have shown in the example above

On posted correctly
your VBA code will
appear in its own 
scrollable window
within your message

This is a continuation of this question. Read all the Forum Rules and you will see that you should not start another question on the same subject.

There is no code in your workbook, so how can we check it?

You didn't say anything about having hidden sheets either

Option Explicit


Sub delBlankRows()
    Dim ws     As Worksheet
    Dim rng    As Range
    For Each ws In ThisWorkbook.Worksheets
        If ws.Visible = xlSheetVisible Then
            On Error Resume Next
            Set rng = Range(Cells(4, 2), Cells(Rows.Count, _
                                               2).End(xlUp)).SpecialCells(xlCellTypeBlanks)
            rng.EntireRow.Delete
        End If
    Next ws
    On Error GoTo 0
End Sub