Archive records once a certain number has been reached

Is it possible to write a command that will send all data captured on sheet 1 to another sheet as an archive? In other words, users will enter data on sheet 1, once they have reached row 100, all the data on row 1 - 100 will move to the archive spreadhseet and clear the rows on sheet 1.

If this is still confusing let me know.

Thanks

Hi
try the following codes

Sub auto_open()
Dim x As Long, y As Long
x = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
y = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row
If x > 100 Then
Sheets("Sheet1").Range("A2:Z" & x).Copy
Sheets("Sheet2").Range("A" & y + 1).PasteSpecial
End If
Sheets("Sheet1").cells.clearcontents
ActiveWorkbook.Save True
End Sub

When you open the workbook, if it has over 100 rows of data in sheet1, it will copy it to sheet2.
Ravi

Hi Ravi

This does not seem to be working. I have entered the code on my sheet 1 and then saved it. I then closed and opened the workbook and all 300+ records are still there.

RGDS