クリア (列全体 EntireColumn)

Sub Sample()
    Range("B2:D5").EntireColumn.Clear
End Sub