Pasting differing, repeating Data down an entire Column

[Golem]

I need to input data into a column. There are 34 different data sets, but they repeat after 34. All the way to around 3000. What is the best way to do this? I know this is probably simple but I haven't found a way to accomplish this after a lot of searching. I have provided an example below. The data in column A needs to repeat down the rest of the column.

 

[My Aswer Is This]

Are you saying you want to copy the values in Rows 1 to 34 of column "A"

And paste those same values into rows 35 to 68 and then into rows 68 to 102

And keep doing this over and over how many times?

About 3000 is not a absolute we deal with absolutes.

 

[Golem]

Correct, The actual data is in column D. And it will begin in row 2. Then continue until row 35. Then repeat from 36 to 69. Then repeat from 70 to 103. And so on until row 3252. Sorry I wasnt more precise in my OP.

 

[My Aswer Is This]

We are copying 34 cells of Data
And you want them copied down till row 3252

Which would mean copy them 95.64 times which I do not know how to do.
Try this script it copies them 95 times.

If you need an exact 95.64 times someone else will have to help you.

Not sure what your doing but try this:
This script copies them to row 3265

Sub Copy_Down()
Application.ScreenUpdating = False
Dim i As Long
Dim b As Long
b = 36
    For i = 1 To 95
    Range(Cells(2, "D"), Cells(35, "D")).Copy Cells(b, "D")
    b = b + 34
    Next
Application.ScreenUpdating = False
End Sub

 

[Golem]

We are copying 34 cells of Data
And you want them copied down till row 3252

Which would mean copy them 95.64 times which I do not know how to do.
Try this script it copies them 95 times.

If you need an exact 95.64 times someone else will have to help you.

Not sure what your doing but try this:
This script copies them to row 3265

It worked perfect! Thank you sir. ray:ray: You are a god among men. May you live to be a thousand years old. Let the streets run red with the blood of your enemies.

 

[Akuini]

Try this one line:
You can change D3252 to D3265 if you want.

---

Please use Code Tags when posting a code. Like this: [CODE ]Your Code Here[/ CODE]

    Range([B][COLOR=brown]"D2:D35"[/COLOR][/B]).AutoFill Destination:=Range([B][COLOR=brown]"D2:D3252"[/COLOR][/B]), [B][COLOR=Royalblue]Type[/COLOR][/B]:=xlFillCopy

---

 

[My Aswer Is This]

Glad I was able to help you. But then there is always 10 other ways to do the same thing.

It worked perfect! Thank you sir. ray:ray: You are a god among men. May you live to be a thousand years old. Let the streets run red with the blood of your enemies.