Cut/Paste Macro suddenly not working

[smugglersblues]

Hi,
My cut/paste macro is suddenly not working. It is coming up with error 1004. Would somebody please post a better coded macro for this?

Here is my current macro:

Sub MoveVolume()
Dim loc As Range, locaddress As String, SearchString
    SearchString = "Volume"
    With Cells
        Set loc = .Find(What:=SearchString)
    End With
    locaddress = loc.Address(0, 0)
    Range(locaddress).EntireColumn.Cut
    Columns("C:C").Insert Shift:=xlToRight
End Sub

[smugglersblues]

It is displaying a message "To prevent possible loss of data, Micrsoft Excel cannot shift nonblank cells off the worksheet." This message hasn't appeared before when running the macro.

[smugglersblues]

Is it possible to add error handling so that if Volume is already in column C to ignore the command?

[smugglersblues]

I solved the problem. Exel likes to assume that any cell that has any formatting is occupied. So to insert more columns do the following:
1. Select all of the empty columns to the right of your last used column.
2. Click Edit/Clear/All

That should clear up space to insert columns. I recorded a macro to do this for me. I set the active cell back to A after this so the next macro would run properly.

Sub ClearAll()
    Columns("Q:Q").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Clear
    Range("A1").Select
End Sub

And here is a article on the topic
http://www.computeractive.co.uk/ca/p...icrosoft-excel