Insert copied cells as value

[afountas]

Need a macro to Copy cells from sheet1 (row 2) and "insert copied cells"(which would create a new row) as a value in sheet2 (row 2).

Any help??

 

[venkat1926]

is this what you want?

Sub TEST()
With Worksheets("sheet1")
.Range("a2").EntireRow.Copy
With Worksheets("sheet2")
.Range("a2").PasteSpecial xlPasteValues
End With
End With
End Sub

 

[Peter_SSs]

Since you want to "insert copied cells(which would create a new row)" try

<font face=Courier New><br><br><SPAN style="color:#00007F">Sub</SPAN> CopyAndInsert()<br>    Sheets("Sheet1").Rows(2).Copy<br>    <SPAN style="color:#00007F">With</SPAN> Sheets("Sheet2")<br>        .Rows(2).Insert<br>        .Range("A2").PasteSpecial xlPasteValues<br>    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br>    Application.CutCopyMode = <SPAN style="color:#00007F">False</SPAN><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>