Streamline copying and pasting code

[Guest]

H
I would like to simplify this code to copy stuff from one worksheet to another. How can this be done

Worksheets(Wks).Select
Range("A5").Select
Selection.Copy
Worksheets("Printout").Select
Range("A6").Select
ActiveSheet.Paste

Also, is there a way to copy more than one item at a time, like the clipboard does

Thanks, and have a great day

Ar

 

[Tom Ogilvy]

Worksheets(Wks).Range("A5").Copy Destination:= _
Worksheets("Printout").Range("A6")

or if you just want values

Worksheets("Printout").Range("A6").Value = _
Worksheets(Wks).Range("A5").Value


--
Regards,
Tom Ogilvy

Hi
I would like to simplify this code to copy stuff from one worksheet to

another. How can this be done?

 

[Guest]

Thanks Tom