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