Deleting rows with multiple columns that = 0

[cutemeatball]

Hello! So this macro works and deletes the rows where specific columns equal 0. But the problem is that it deletes my first 4 rows which are empty spaces throughout. Can anyone assist on this?

Thanks!

Sub delete3zerocolumns()

   Dim lr As Long, i As Long
   Dim ws As Worksheet
   
   For Each ws In Worksheets
   
      With ws
      
         lr = .Cells(.Rows.Count, "I").End(xlUp).Row
         
         For i = lr To 1 Step -1
         
            If .Cells(i, "Q") = 0 And .Cells(i, "R") = 0 And .Cells(i, "S") = 0 Then
               .Rows(i).Delete
            End If
         
         Next i

      End With
      
   Next ws
   
End Sub

 

[My Aswer Is This]

Try this:
Instead of this:
For i = lr To 1 Step -1

Try this:

For i = lr To 4 Step -1

 

[cutemeatball]

Try this:
Instead of this:
For i = lr To 1 Step -1

Try this:

For i = lr To 4 Step -1

IT WORKS! thank you!!!!!

Apologies for the late reply!

 

[My Aswer Is This]

IT WORKS! thank you!!!!!

Apologies for the late reply!

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.