i need help
 

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

i need help
 

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

i need help
 

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
SalesAid Software

"covi2k2" wrote in
message ...

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

i need help
 

I knew there had to be an easier way

"Don Guillett" wrote:

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
SalesAid Software

"covi2k2" wrote in
message ...

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

i need help
 

glad to help

--
Don Guillett
SalesAid Software

"JNW" wrote in message
...
I knew there had to be an easier way

"Don Guillett" wrote:

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
SalesAid Software

"covi2k2" wrote
in
message ...

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