Macro to Delete rows where there are Zeroes from row 2 onwards in Col K

[howard]

I have written code to delete rows where where are zeroes in Col K from row 2 onwards from sheet "Upload JNL BRT" onwards

When running the macro, I get a compile error "Invalid Next control variable reference"

Next I is highlighted

 Sub Delete_Zeroes()
  Dim Lr As Long, i As Long, J As Long
  
 
    For i = Sheets("Upload JNL BRT").Index To Worksheets.Count
        With Worksheets(i)

  
  
  
  Lr = Range("A" & .Rows.Count).End(xlUp).Row
  Debug.Print Lr
  For J = Lr To 1 Step -1
    If .Range("K" & J).Value = 0 And Not IsEmpty(.Range("K" & J)) Then _
      .Range("K" & J).EntireRow.Delete
  Next i
End Sub

It would be appreciated if someone could amend my code and advise where I have gone wrong

 

[kevin9999]

You need a Next J before the line Next i

Next J
Next i

 

[howard]

Thanks for your input Kevin

I now get a compile error "End With without With

Please check & advise

 Sub Delete_Zeroes()
  Dim Lr As Long, i As Long, J As Long
  
 
    For i = Sheets("Upload JNL BRT").Index To Worksheets.Count
With Worksheets(i)
    
  
  Lr = Range("A" & .Rows.Count).End(xlUp).Row
  Debug.Print Lr
  For J = Lr To 1 Step -1
    If .Range("K" & J).Value = 0 And Not IsEmpty(.Range("K" & J)) Then _
      .Range("K" & J).EntireRow.Delete
   End With
      Next J
  Next i
      End With
End Sub

 

[kevin9999]

Remove the End With before the Next J and after the Next i and put it between the 2 Nexts

Next J
End With
Next i
End Sub

 

[howard]

Thanks Kevin. It works perfectly now

 

[kevin9999]

Thanks Kevin. It works perfectly now

Happy to help