Sub CopyLine()
Dim rngTo As Range

Set rngTo = Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
Selection.EntireRow.Copy rngTo
End Sub
--
HTH...

Jim Thomlinson


"Schnauzin254" wrote:


Ok, I am having trouble with this macro.
What I need it to do is:
1) Cut the currently selected line from sheet 1 (got that)
2) Paste that line in sheet to, in the NEXT available BLANK row. (Have
NO clue how to code that)

HELP!!!

Thank you!! :)


--
Schnauzin254
------------------------------------------------------------------------
Schnauzin254's Profile: http://www.excelforum.com/member.php...o&userid=33732
View this thread: http://www.excelforum.com/showthread...hreadid=535097