【初期化】ヘッダー行以下のデータ行を全て削除する【ExcelVBA】【パーツ化】

エクセル上でマクロのログを残す場合など、指定行以下を全て削除したい要望があります。
指定行＝ヘッダー行でその部分まで消されるととても面倒です。

ヘッダー行以下のデータ行を全て削除するコピペコード

'■指定行以下のデータ行を全てClearContents
Public Function Call_iniDataClearContents(sRow As Long, ws As Worksheet)
    ws.Rows(sRow & ":" & ws.Cells.Rows.Count).ClearContents
End Function

実際の使い方

Public Sub sample()
    Call Call_iniDataClearContents(2, ActiveSheet)
End Sub

関連記事

• ヘッダー行を加味して「最終行」取得処理
• ヘッダー行(見出し)を除いて表範囲を取得する【CurrentRegion応用】
• 指定行(ヘッダー行)以下を全て削除する