Hi Adam,

This ought to get you started. Put this code into a module and assign
it to the command button on your data entry sheet.

Sub CopyRows()
Dim lentryRow As Long
Dim ldestRow As Long

' assumes data starts in column A for each row
' find last row with data in the active sheet
lentryRow = Cells(Rows.Count, 1).End(xlUp).Row
' assumes data starts in row 2
Range(Cells(2, 1), Cells(lentryRow, 10)).Copy

' find the first empty row on the destination sheet
ldestRow = Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row +
1
' append new data
Worksheets("Sheet2").Cells(ldestRow, 1).PasteSpecial _
Paste:=xlPasteValuesAndNumberFormats
' assumes that last 5 cells in data entry form have formulas
' so just clear the actual entry cells
Range(Cells(2, 1), Cells(lentryRow, 5)).ClearContents
End Sub

I hope this helps,

Gary