Move Range with Formatting

[AlexanderBB]

With VBA Can I move everything in Col O-AL to P preserving each columns fore and back color?
I find paste special a bit fiddly and there's a lot to change. Rows 61 is the first.

 

[Kaper]

You are thinking about moving one-right so may be:

    Range("O61:O1000").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

replace 1000 with needed last row number. For instance if column O is filled down to the bottom, and nothing is written below, an easy dynamic range could be created

    Range(cells(61,"O"),cells(rows.count,"O").end(xlup)).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

if Right to AL column there is a content which shall not move, delete appropriate range right of your region (probably before adding empty column)