vba清空第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