Sorry I didn't read closely enough - I see now that you also wanted to
delete zeroes.

Dave

wrote:
I'm not sure how the perfomance compares to previous solutions but this
seems to work.

Sub DeleteColumnOBlankCells()
Columns("O:O").SpecialCells(xlCellTypeBlanks).Enti reRow.Delete
End sub

Dave Parker

andresg1975 wrote:
let's say i have this:

column O

row 1 750
row 2 0
row 3 blank cell
row 4 ----------
etc

how can i create a macro that looks column O, delete rows that contain 0
values, blank cells, and ---------.

thanks for your help