If column dont contain 0 then delete row

Goodday hope someone can help

I have an array in Column H with 1300 rows, I need a Macro or a formula to do the following -If no 0 in array then delete all row that dont contain the 0. Sample below.Any help greatly appreciated. It must go through the whole column and delete. I have a macro but it does not delete all the cells.Thanx for any help

1, 17, 0, 40, 17 Qualifies it have a 0
1, 17, 8, 9, 40 >>>>>>>>>>>Must be deleted
1, 17, 14, 3, 40 >>>>>>>>>>>Must be deleted
1, 17, 17, 0, 40 >>>>>>>>>>>Qualifies
1, 17, 17, 40, 0
1, 17, 17, 40, 0
1, 17, 40, 9, 8 >>>>>>>>>>>>Must be deleted
1, 17, 40, 5, 12
1, 17, 40, 1, 16>>>>> Must be deleted
1, 0, 25, 9, 40 >>>>>>>>>>>Qualifies
1, 25, 3, 40, 6 >>>>>>>>>>>Must be deleted
1, 25, 5, 40, 4 >>>>>>>>>>>Must be deleted

Please Login or Register  to view this content.

Ricklou

Originally Posted by zbor

Here, try this:

Please Login or Register  to view this content.

This code works flawlessly...........!!!!Zbor thank you so much!!!!!!!!!!!!!!!! Solved

Originally Posted by nilem

as an option

Please Login or Register  to view this content.

Thank you for your code, I will try it aswell.......Zbor's did the trick though.