Sub AA()
Dim rng As Range
Set rng = Range("1:3,5:5,7:10")
rng.Copy Destination:=Worksheets("Sheet2").Rows(1)
End Sub

works. But without more information, it is hard to tell what you want.

--
Regards,
Tom Ogilvy

"adinic" wrote in
message ...

Hello. Does anyone know how to do this? For exemple i need to copy
several rows. If i try to do this i get an error. Thanks.


--
adinic
------------------------------------------------------------------------
adinic's Profile:
http://www.excelforum.com/member.php...o&userid=31529
View this thread: http://www.excelforum.com/showthread...hreadid=516123