Macro, copying last column to the one after it

[Fro]

Hey
I'm trying to create macro which goes to the last column that has data in it, copying it to the one after that.

eg: I have a couple of values in column C. I want to copy this, by using a macro, to column D. Then, the next time I run the macro I want it to copy the values in column D to column E... and so on.

I know my explanation is bad, but I hope you'll understand.

Cheers
Fro

 

[Barrie Davidson]

Assuming you have data in all the columns in row 1, you can use:

Dim LastColumn As Integer

LastColumn = Range("A1").End(xlToRight).Column
Columns(LastColumn).Copy _
Destination:= _
Columns(LastColumn + 1)

Regards,

 

[Fro]

Great!
It works nicely, now I can finally create a fully automatic updating system for a page ranking the world's best Super Monkey Ball players

Thank's a lot!