i need help

[covi2k2]

i have 6 columns of data, A3:A550, B3:B550, C3:C550, D3550,E3:E550 AND
J3:J550, they are in a sheet called GRAD (2), I want o copy and past
these data in to sheet2 . but i want the data in each row to be copied
4 times so i will have 6 colums of data 2200 rows down.

hope some one can help

 

[Guest]

This should do it. Change the references as needed. Also I only got 2192
rows because the ranges start with a3.

Sub CopyAndPaste()
Sheets("sheet1").Range("A3:E550").Copy
Sheets("sheet2").Range("A1").PasteSpecial
Set destRng1 = Sheets("sheet2").Cells(Rows.Count, "A").End(xlUp)(2)
destRng1.PasteSpecial
Set destRng1 = Sheets("sheet2").Cells(Rows.Count, "A").End(xlUp)(2)
destRng1.PasteSpecial
Set destRng1 = Sheets("sheet2").Cells(Rows.Count, "A").End(xlUp)(2)
destRng1.PasteSpecial
Application.CutCopyMode = False

Sheets("sheet1").Range("J3:J550").Copy
Sheets("sheet2").Range("F1").PasteSpecial '<change the destinations as
needed
Set destRng1 = Sheets("sheet2").Cells(Rows.Count, "F"). _
End(xlUp)(2) 'change row letter as needed
destRng1.PasteSpecial
Set destRng1 = Sheets("sheet2").Cells(Rows.Count, "F"). _
End(xlUp)(2) 'change row letter as needed
destRng1.PasteSpecial
Set destRng1 = Sheets("sheet2").Cells(Rows.Count, "F"). _
End(xlUp)(2) 'change row letter as needed
destRng1.PasteSpecial
Application.CutCopyMode = False
End Sub

 

[Don Guillett]

you could use a copy/paste macro 4 times.something like this

for i=1 to 4
x=cells(rows.count,"a").end(xlup).row+1
range("a3:e5550,j3:j550)").copy range("a"&x)
next

 

[Guest]

I knew there had to be an easier way

you could use a copy/paste macro 4 times.something like this

for i=1 to 4
x=cells(rows.count,"a").end(xlup).row+1
range("a3:e5550,j3:j550)").copy range("a"&x)
next

 

[Don Guillett]

glad to help