VBA：指定セルからデータの最後までを消す

上記のようにA1セルからデータが入っているとする。

次のようなVBAマクロを作るとA1セルから下に向かって最後のデータまでを消去できる。

Sub RangeDelete()
    ' A1セルから下に向かってデータの最後までを消す
    Range(Cells(1, 1), Cells(1, 1).End(xlDown)).Select
    Selection.ClearContents
    
End Sub

実行結果

CellsとRangeを組み合わせると柔軟な範囲指定に対処できる。
CellsやEndの引数を色々と変えて試してみて欲しい。