Come tagliare la colonna J e incollarla nella colonna C?

 
Columns("J:J").Select
Selection.Cut
Columns("C:C").Select
Selection.Insert Shift:=xlToRight