Mike,
I figured you meant rows, not column and wrote the code accordingly in my
other response. You can take that code and stick it into the section of your
macro that is doing the find/replace right now - it doesn't have to be a
separate routine, although you could just copy the whole thing as a Sub and
then call it from your current macro, replacing all of the With...End With
statements with a one-line call to it.

"Mike" wrote:

Im sorry Its Rows Not Column to Delete
The Reason for this Is that this is a pick list for a ware house to pull
orders and see what is out of stock

"Mike" wrote:

With Columns("I:I")
On Error Resume Next
.Replace What:=0, Replacement:="#n/a", LookAt:=xlWhole
.SpecialCells(xlCellTypeConstants, xlErrors).EntireRow.Delete
End With

This works for me but THE WOMAN AT THE OFFICE WOULD LIKE NOT TO DELETE
COLUMNS WITH ZERO VALUES. BUT TO CUT AND PASTE THEM AT THE BOTTOM OF THE SHEET

This only part of the whole Macro but this is the part that Deletes