Copy Paste offset value Horizontally

[edwincwc]

i am new to VBA, I use following code to copy past offset Down is OK.
"Sub Copyoffsetdown()
Range("A1:A6").Copy
Range("h555").End(xlUp).Offset(0, 0).PasteSpecial Paste:=xlPasteValues
End Sub"

but
How to change the code , so i can copy rang(A1-A6) to H1-H6, then I1-I6, J1-J6 up to Z1 to Z6 horizontally etc ?
Thanks very your help in advance.

 

[edwincwc]

Re: Help Pls!Simple Copy Paste offset value Horizontally

Thanks Mick, again Great help! Worked!!!!!!

 

[MickG]

Re: Help Pls!Simple Copy Paste offset value Horizontally

You're welcome