Copying data in columns

[kathleen0927]

Hello.

I am looking for VBA code to copy data from a column in Excel to another column (to the right) on the same worksheet. Trick is if the destination column has data in it, I need to go to the next column to the right that does NOT have data.

In my example, I have data in range C4:C25. I want to copy that to range M4:M25. Next time I use the command button/code, I want to copy C4:C25 to N4:N25, and so on.

Any advice?

Thank you!

 

[MickG]

Try this:-

[COLOR="Navy"]Sub[/COLOR] MG07Feb39
[COLOR="Navy"]Dim[/COLOR] rng [COLOR="Navy"]As[/COLOR] Range, c [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
 [COLOR="Navy"]Set[/COLOR] rng = Range("C4:C25")
c = 1
[COLOR="Navy"]Do[/COLOR] Until Application.CountA(rng.Offset(, c)) = 0
    c = c + 1
[COLOR="Navy"]Loop[/COLOR]
rng.Copy rng.Offset(, c)
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[kathleen0927]

This is perfect Mick. Thanks so much for your help!

 

[MickG]

You're welcome