Copy and paste 20 rows down

[bgonen]

I'm trying to find few commands to the following:
Copy cell A1 to a range C1:C20
Then go to the next value in A2 and copy the value to range C21:C40
(I got roughly 330 values ,,between A1 and A330,,so I don't want to do it manually.

Hope someone can help
Thanks

 

[jasmith4]

Why not use formulas? Just put "=A1" in C1:C20, "=A2" in C21:C40, etc., up to "=A330" in C6521:C6600, and then they'll update as soon as you change anything in A1:A330. If you ever need to copy the actual numbers, copy the C column, but use Paste Special, and pick Values, not Formulas.

 

[VoG]

Try

Sub AnotherTest()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LR
    Range("A" & i).Copy Destination:=Range("C" & Rows.Count).End(xlUp).Offset(1).Resize(20)
Next i
End Sub

 

[Darkspartan]

Sub test()
Dim lastrow As Integer
Range("a1").Select
i = 1
Do Until IsEmpty(ActiveCell)
Range("A" & i).Select
lastrow = Range("c" & Rows.Count).End(xlUp).Row
ActiveCell.Copy
Range("C" & lastrow & ":C" & (lastrow + 20)).PasteSpecial
i = i + 1
Loop
lastrow = Range("c" & Rows.Count).End(xlUp).Row
Range("C" & lastrow).Select
End Sub

 

[bgonen]

Thanks a lot all,
I had used VoP commands and it works just fine

Peter,
Your commands had saved me so much valuable time

Thanks again
bg