せっかく作ったのでまとめてみました。

下のような表のデータ値を削除したいときに便利なVBA。

Selectしたセル基準に範囲選択するときは、

Sub sample01()
    
    'セルの選択
    Range("B3").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xltodown)).Select
    
    '文字列の初期化
    Selection.ClearContents
    Range("B3").Select
    
End Sub

削除対象のセルが固定されているときは、

Sub sample02()
    
    'セルの選択
    Range("B3:D12").Select
    
    '文字列の初期化
    Selection.ClearContents
    Range("B3").Select
    
End Sub