Macro Help - Copy Selected Row

[Guest]

Help_ I need to write a macro that will copy any single row that is
highlighted and paste it to a designated row on a different worksheet
Ex.~(Row50). I am reassembling a form based upon archived data in the row
being copied.

Please help!
~Thanks

 

[Guest]

Sub TeddyB()
Selection.Copy Sheets("Sheet2").Range("A50")
End Sub

assuming you have select the entire row, it is a one-liner.

 

[JW]

Sub foo()
Selection.EntireRow.Copy _
Destination:=Sheets("Sheet2").Rows(50)
End Sub

 

[Dave Peterson]

One more...

Activecell.entirerow.copy _
destination:=worksheets("OtherSheetNameHere").range("A50")

Selection could be more than one row.