Delete row if cell in range equals zero

So I need to delete any row that has a value of either 0 or blank in my range of J7:J1006. I am trying to avoid an if/then statement to reduce run time. This macro is extremely quick for the blanks which I really like:

Please Login or Register  to view this content.

I have been trying to find how to alter the xlCellTypeBlanks to select any cells with 0 but I have not been able to. Is this possible? If not, how would you delete the cells with 0? I don't need a macro for the blanks since this one works great.

Try something like this:

Please Login or Register  to view this content.

is the filter working for all 0's? or is that also causing an issue? after the macro runs the data should remain filtered.

could you attach a sample book?

Sample booked attached

Give this a go:

Please Login or Register  to view this content.

it is filtering by blanks and - (i cheated and used macro recorder to filter) then just deleting all visible rows in that range.

glad to assist, good luck with the rest of the project.