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" <(E-Mail Removed)> wrote in
message news:(E-Mail Removed)...
>
> 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
>