I am trying to add some columns with the following code:

For i = start To finish
Columns("G:G").Select
Selection.Insert Shift:=xlToRight
Next i

The problem I am having is that I often get the message:

"Run-time error '1004':
To prevent possible loss of data, Microsoftw Excel cannot shift
onblank cell off the worksheet. ...."

I have reset my last cell and saved, but the error returns. Any ideas?

David