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
"covi2k2" wrote:


i have 6 columns of data, A3:A550, B3:B550, C3:C550, D3:D550,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


--
covi2k2
------------------------------------------------------------------------
covi2k2's Profile: http://www.excelforum.com/member.php...o&userid=28078
View this thread: http://www.excelforum.com/showthread...hreadid=475839