"I can name that tune in 2 lines"

Columns("C:D").Cut
Range("G1").Insert Shift:=xlToRight

steve

"PK" wrote in message
...
Hello,

I can move a column in VBA, but the macro recorder does it
in four lines of code. To be more efficient, I'm sure it
can be accomplished in a single VBA code line.

PLEASE NOTE: I want to CUT two adjoining columns (e.g. B:C)
and MOVE them by INSERTING them into a new location (e.g.
O:P). When all is said and done, the original
columns "B:C" will be gone (i.e. the spreadsheet will have
shifted to the left to absorb the empty columns created by
cutting columns "B:C" out), and columns "O:P" will now
contain the cut data and the original data in "O" will
still be there, only shifted to the right. Can this be
accomplished in a single VBA line?

Your example code is most appreciated. Thanks in advance.