One way:

Use this macro, attached to a button or keyboard shortcut:

Public Sub ClearSheet
With ActiveSheet
.Rows("2:"&.Rows.Count).Clear
End With
End Sub

In article ,
Danu wrote:

Is there a way to easily delete all the records in a spreadsheet except for
the first line?

I have a spreadsheet with many records which must be updated each day with
new info. I can delete all the records but end up rewriting the column
titles.

Thank you.