What I didn't get across was this is to be done many times over each time it
is repeated it needs to goto next row not overwrite. Will copy in and see
what I can do.
Thanks

"Alan" wrote:

2:2 designates row 2.

You need to do a better job of describing what you need. It is hard to
understand what you want when you say:

"copy from data sheet E:L cells to donors A:H paste"

Is it a sheet called "data"? Is it a sheet called "donors"? Are you copying
Column E:L to A:H?

Worksheets("data").Columns("E:L").Copy
Worksheets("donor").Range("A1").PasteSpecial xlPasteValues


Regards,

Alan



"Curt" wrote in message
...
not good how can I modify this to copy from data sheet E:L cells
to donors A:H paste
I dont follow the 2:2

"Bernie Deitrick" wrote:

Andy,

Worksheets("Sheet1").Range("2:2").EntireRow.Copy
Worksheets("Sheet2").Range("A65536").End(xlUp)(2) _
.EntireRow.PasteSpecial Paste:=xlPasteValues

HTH,
Bernie
MS Excel MVP

"Andy Josolyne" wrote in message
...
Many thanks, please advise what is required to paste special as values
in
Sheet 2

"Bernie Deitrick" wrote:

Andy,

Worksheets("Sheet1").Range("2:2").EntireRow.Copy _
Worksheets("Sheet2").Range("A65536").End(xlUp)(2). EntireRow

HTH,
Bernie
MS Excel MVP

"Andy Josolyne" <Andy wrote in
message
...
I wish to copy a row of data 2:2 from Sheet 1 to the next blank row
in
Sheet
2, would appreciate VBA code to execute. Many thanks