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