Copy one column and paste into every nth column

[ethankraft]

Hi all,

I have an 800-row column with text in each row. I am looking to copy and paste/transpose the text onto Row 1, with each value 10 cells apart. I've been scouring the Internet for a code that will get me there, and the closest I've come was this, from alansidman a decade ago, but that pastes the whole column every nth row, rather than taking one cell and moving onto the next. Apologies -- I am new to this and trying to teach myself, but just can't get there.

Sub copy50()
Dim lr As Long
lr = Range("A" & Rows.Count).End(xlUp).Row
Dim i As Long

Application.ScreenUpdating = False
For i = 6 To 250
Range("A1" & ":A" & lr).Copy Cells(1, i)
i = i + 4
Next i

Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox ("complete")

End Sub

[sintek]

See yellow banner above...This will help...

[ethankraft]

Roger that. Sample, representative sheet attached. You'll see the first few items in Column A are also in Row 1 ten cells apart.

[sintek]

Sample file does not depict what your expected result must be...Please edit above and attach another file...
Also please make sure that this depicts your actual setup so no time is wasted on unnecessary coding...

[ethankraft]

Sorry, I'm not sure what you mean... this is the set up, I just removed hundreds of rows per the instructions in the yellow banner. I am looking to have A column copied, so that A1 is pasted to E1, A2 is pasted to O1 (ten cells to the right of E1), A3 is pasted to Y1 (ten cells to the right of O1), and so on through the list. I can upload a .xlsm if that's the difference you're looking for?

[sintek]

Now i get it...
One way...

Please Login or Register  to view this content.

[ethankraft]

You are a miracle worker. Thanks for your patience and your help.

[sintek]

Pleasure...Tx for rep...
If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED.

[Pepe Le Mokko]

Administrative Note:

Hi and welcome
although we value privacy as much as anyone else, it could be important that members have a rough idea of your location. You might in the future post questions which are bound to your regional settings.
So, please update your profile to something more precise then "Internet" ( country will suffice, no need to be more precise).
Thank you for helping us to help you