I have a range selected in a Column and am trying to delete the Blank cells out. The following code works if there are blank cells in the range, but if there are not it gives an error.

Selection.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp




Is there a way of doing it so it doesn't give an error, or should I just do On Error Resume Next for this section of the macro?