データクリア

Const cnInitPos = "A3"

Sub Clear_All()
Range(cnInitPos).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
End Sub