delete rows with 0 values

[Guest]

how can i create a macro that select column O, delete every row that contains
empty cells, cells with 0 values, and non-numeric cells such as --------.
thanks

 

[Jean-Yves]

Sub test
dim rng as range

For each rng in Range("O2", Range("O2").End(xlDown))
If rng.value = "0" or rng.value= "---------"Then rng.clear
Next
columns("O:O").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End sub
Regards
Jean-Yves