Macro: copy and paste

Closed
Dee - Oct 27, 2009 at 12:02 PM
 Dee - Oct 28, 2009 at 03:07 AM
Hello,
Can anyone help me, please?
I want an excel macro that will copy and paste some data. I have a column of data from A1 to A31. I would like a macro that can copy data from cell A1 and paste in the cell range A40 to A60, then copy A2 and put it in cell range A61 to A80 than copy A3 and paste into A81 to A100, etc.

Regards,
Dee.

1 response

venkat1926 Posts 1863 Registration date Sunday June 14, 2009 Status Contributor Last seen August 7, 2021 811
Oct 27, 2009 at 10:36 PM
A40 to A60 are 21 rows where as A61 to A80 are 20 rows and also A81 to A100 are 20 rows. To void inconsistency I have made the first set A41 to A60

in that case use this macro

Sub test()
Dim j As Integer, k As Integer
For j = 1 To 31
k = (j + 1) * 20
'MsgBox k
Cells(j, "A").Copy
Range(Cells(k + 1, "A"), Cells(k + 20, "A")).PasteSpecial
Next j
End Sub
0
Great Thanks, It worked perfectly.

Regards,
Dee
0