vba help please - Copying a Block of data and pasting 3 times in the same column

[Xceller]

Hi everyone,

Let's say I have 3 rows of data (A,B,C) in column A. I would like to copy this block of data and paste it 3 times from Row10 to Row18 in the same order.
Thank you in advance for your help!

I tried this, but it doesn't work:

Range("A10:A18").value = Range("A1:A3").value


Column A
Row1: A
Row2: B
Row3: C
..
..
..
Expected result:
Row10: A
Row11: B
Row12: C
Row13: A
Row14: B
Row15: C
Row16: A
Row17: B
Row18: C

 

[Smitty]

How's this:

<font face=Calibri><SPAN style="color:#00007F">Sub</SPAN> foo()<br>    <SPAN style="color:#00007F">Dim</SPAN> i <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br>        <SPAN style="color:#00007F">For</SPAN> i = 10 <SPAN style="color:#00007F">To</SPAN> 18 <SPAN style="color:#00007F">Step</SPAN> 3<br>            Range("A1:A3").Copy Cells(i, "A")<br>        <SPAN style="color:#00007F">Next</SPAN> i<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

HTH,

 

[Xceller]

Thank you Smitty for the quick help. It works perfectly. Is there any way to get around it without using a loop?

 

[Smitty]

Is there any way to get around it without using a loop?

Hmmm, not that I can really think of since you're dealing with an iterative process.

 

[Xceller]

Smitty, Thanks for the explanation. I will try to incorporate your code. Thanks again.