Select Columns Contain Error

''' If Error GoTo NextCode

On Error GoTo NextCode

''' Select column A until the last column

Columns("A:A").Select

Range(Selection, Selection.End(xlToRight)).Select

''' Select cells with error

Selection.SpecialCells(xlCellTypeConstants, 16).Select

''' Select columns for cells with error and delete the columns

Selection.EntireColumn.Delete

NextCode:

NextCode Here..