Streamline copying and pasting code

A

Art

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
 
T

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



Art said:
Hi
I would like to simplify this code to copy stuff from one worksheet to
Click to expand...
another. How can this be done?
 
Top