Paste right to left

[Bob G]

So i need to take a range of information from one sheet and paste it to another sheet. Here's the kicker, I need it to paste in the same order, but to the left of the selected cell. I'll try to explain simplified:

Sheet2: Range= O12:T12 (copy value)

Sheet1: Current values in J9:V9. Insert copied cells at I9=T12 to D9=O12

D9:I9 are blank cells

I know the easy answer is to select D9 and paste normal. This is a very simplified version. I'm looking at pasting more than 100 cells over several columns and rows. Inevitably this would be a paste right to left function, opposite of the standard paste left to right.

 

[Rick Rothstein]

Just use the Offset property to adjust the range relative to J9...

Worksheets("Sheet2").Range("O12:T12").Copy Worksheets("Sheet1").Range("J9").Offset(,-5)

 

[Bob G]

Is this something I can put into VBA as a macro? and is there a way to set "J9" as a variable where the variable is equal to the selected cell? I can leave the range set as the information being copied will always remain the same, but where it is being pasted will change.

 

[Rick Rothstein]

Is this something I can put into VBA as a macro? and is there a way to set "J9" as a variable where the variable is equal to the selected cell? I can leave the range set as the information being copied will always remain the same, but where it is being pasted will change.

Okay, assuming you are running the code from Sheet1 (so that the selected cell is visible)...

Worksheets("Sheet2").Range("O12:T12").Copy ActiveCell.Offset(,-5)

This line of code can be placed directly in a macro.

 

[Bob G]

Perfect. That'll work. Thanks.