Exit For Loop on Error?

[uberathlete]

Hi everyone.

I have the following code which selects all constants from column 2 to 30, then cuts and pastes into column A:

For i = 2 To 100
    Columns(i).Select
    Selection.SpecialCells(xlCellTypeConstants, 23).Select
    Selection.Cut
    Range("A1").Select
    Selection.End(xlDown).Offset(1, 0).Select
    ActiveSheet.Paste
Next i

However, when the code does selection.special on totally blank columns, an error is generated. Is there a way to modify it so that it exits the loop if that error occurs?

Any help would be much appreciated.