Assuming all errors are to be corrected then perhaps simply:

On Error Resume Next
Columns("D:D").SpecialCells(xlCellTypeConstants,xlErrors).Value = ""
On Error GoTo 0
(above assumes the cells are values only - if formulae adjust Constants to Formulas but note the formulae will be overridden)