Delete entire row if is zero value

[Panoos64]

Hi to all of you, kindly require to provide me VBA so that to delete entire row if the value in col. "J" is "0", zero . Therefore that the rows arises to 700000+ and the code due to other commands should not start with "Dim as Long.... e.t.c." Thank you all in advance

 

[Fluff]

How about

Sub panoos()
    With ActiveSheet
        .Range("A1:J1").AutoFilter 10, 0
        .AutoFilter.Range.Offset(1).EntireRow.Delete
        .AutoFilterMode = False
    End With
End Sub

 

[Panoos64]

Hi Fluff, due to lot of rows the code is too slow. Is there any other type of code to run? Thank you and have a great day!

 

[Panoos64]

Sorry Fluff, it was hardware issue and it works perfect! Thank you so much for your continued support. Hv a lovely day!

 

[Fluff]

You're welcome & thanks for the feedback