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

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

assuming you have select the entire row, it is a one-liner.
--
Gary''s Student - gsnu200750


"Teddy-B" wrote:

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

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

Teddy-B wrote:
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

One more...

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

Selection could be more than one row.

Teddy-B wrote:

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

--

Dave Peterson