VBA: 快速清空Excel表格第5行及以后所有内容

Sub ClearRows()

Dim lastRow As Long
lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

If lastRow >= 5 Then
    Range('5:' & lastRow).ClearContents
End If

End Sub