Thanks for the reply. Im sure this will help. for simplification purposes, i
want to add it to the already existing macro. this is what it looks like:

Public Sub DeleteStuff()
Cells.SpecialCells(xlCellTypeFormulas, xlErrors).Delete

For Each cell In Selection
If cell = ""total board" or cell = "total metal" or IsNumeric(cell)
Then
cell.Delete
End If

Next cell

End Sub


this gives me an error. what is wrong? thanks.

"Jarek Kujawa" wrote:

forgot about "End Sub" after "Next cell"

sorry