Clear entire row data except the first row using excel VBA

Question

I am using below code to clear contents from A2:H2 rows except the first one where I have the header. This code works well if there are no blank cells in between. But how can I clear everything eventhough there is a blank cell?

Sub Clear()

Dim s1Sheet As Worksheet

Set s1Sheet = Workbooks("StockScreen.xlsm").Sheets("TimeStampWork")

s1Sheet.Range(s1Sheet.Range("A2:H2"), s1Sheet.Range("A2:H2").End(xlDown)).ClearContents

End Sub

Answer 1

Below is my sample code:

Sub ClearContentExceptFirst()
    Rows("2:" & Rows.Count).ClearContents
End Sub

Answer 2

If you simply want to delete the entire row from a specific row number to a specific row number, you can avoid using the Range and Cell properties, but instead you can use the Rows property:

s1Sheett.Rows("2:10").ClearContents

Or if you want to delete the everything from a specific row number to the last row with data, you can use:

s1Sheett.Rows("2:" & currentSheet.Rows.Count).ClearContents