Moving selected data one column

[DaveUK]

I am using this code to select a range going down a variable amount of rows.

Sub MoveRunningTotalColumn()
Range("A4").End(xlToRight).Offset(0, 2).Select
Range(ActiveCell, ActiveCell.End(xlDown)).Select
End Sub

What i want to do is cut the data in the range (and keep the formatting) and move all the data to the same row position but one column to the right.
There is always data in Row 4 which is why i used End(xlToRight).

Please can someone tell me how to do this.

TIA

 

[Tazguy37]

You can do it this way:

    Range(Range("A65536").End(xlUp), Range("A4").End(xlToRight)).Cut Range("B4")

As long as there's data in column A in the last row, and in A4 it will work. You could try using UsedRange, as well.

To just cut (or copy) you usually only need one line of code per range. Just supply the destination on the same line. Hope that helps!

 

[DaveUK]

Mmmm!!

I don't think i have made it too clear.

The Data isn't actually in column A that i want to copy, it is offset 2 columns from the end of the row which starts at cell A4. Data itself can be a variable amount of cells down from this offset cell.

A an initial start the column i need to move is already at column G !! So i need to move it across to column H, initially.