Excel macro to move a column

Question

I am mainly looking to move a column for one item to another.

561  DISK_GROUP_003 0   545     1
561  Disk_Group_iS  95  84144   80210
561  DISK_GROUP_iS  99  26335   26304
1415    t1_200ea    93  8804    8203
1415    t2_30010k   35  59846   21121
1415    t3_1tb72k   19  184941  36590
1415    t3_3tb72k   86  258635  224328
5018    t1_200ea    98  9905    9802
5018    t2_30015k   89  39987   35986
5018    t2_60015k   67  59984   40700
5018    t3_1tb72k   89  87567   78807
5018    t3_2tb72k   84  94412   79620

I need to move the 3rd column to the end on the right.

This is what I have tried so far:

Sub moveColumn()

With ActiveSheet        
        Excel.Columns(3).Cut
        Excel.Columns(6).PasteSpecial
End With

End Sub

But this method does not work, because it gets a runtime error of "1004".

Any help would be greatly appreciated.

Answer 1

Pastespecial does not work with Cut. You can do it:

Columns(3).Cut Range("F1")
Columns(3).Delete Shift:=xlToLeft 'if you want to delete the empty column

Answer 2

For those who are wondering, you can do this without replacing the contents of the destination column.

For example, to cut column B and paste it to the left of column F, you can use

Columns("B").Cut
Columns("F").Insert Shift:=xlToRight

( Columns("B") Columns(2))

Answer 3

, cut/paste , , , , (, VBA).

:

Application.CutCopyMode = False ' don't want an existing operation to interfere
Columns("F").Insert XlDirection.xlToRight
Columns("F").Value = Columns("B").Value ' this would be one greater if to the right of F
Columns("B").Delete

, , .