I have a workbook with two worksheets, namely Archive and Data.

The following code clears all the cell in the Archive worsheet when a click event is
started.

As all cells are cleared, it wipes out any formulae as well!

How would I have to modify the code so that it only cleared lines 1 to 500, or
certain cells?

Sheets("Archive").Select
Sheets("Archive").Cells.Select
Selection.ClearContents

TIA.

--