That wrapped incorrectly: it should all be on one line. The code needs a
continuation character at the end of the first line

Sub MoveEmOut()
Worksheets("Sheet1").Range("2:2").Cut _
Worksheets("Sheet2").Range("A65536").End(xlUp)(2)
End Sub

HTH,
Bernie
MS Excel MVP

"Bernie Deitrick" <deitbe @ consumer dot org wrote in message
...
L,

You could do it using a macro, either run manually or automatically. For
example, this will move Row 2 of Sheet1 to the bottom of the set of data
on
Sheet2. Assumes that cells in column A are never blank.

Sub MoveEmOut()
Worksheets("Sheet1").Range("2:2").Cut
Worksheets("Sheet2").Range("A65536").End(xlUp)(2)
End Sub

HTH,
Bernie
MS Excel MVP

"Lwotton" wrote in message
...
Ok, I need to be able to save any information that is entered onto a
sheet
on
another sheet, but I need the sheet where the information is entered to
stay
blank and then just enter information and it saves onto the other sheet,
so I
get a database system.

How would I do this?