column to be cut and pasted with values in different column

[bcomhari]

Dear Team,

Now here i wanted entire "BO" column to be cut and pasted with values in " A" column in the same sheet .

Here is the code that i have used but it's not happening properly

Range("BO1").Select 
Range(Selection, Selection.End(xlDown)).Select 
Selection.Cut 
Range("BO1").Select 
Selection.End(xlToLeft).Select 
Columns("A:A").Select 
Columns("A:A").Select 
Selection.Insert Shift:=xlToRight 
Selection.Copy 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
:=False, Transpose:=False  Application.CutCopyMode = False

[bcomhari]

Hi Team,

Can you please help me on this request ?