消去ボタン

https://gyazo.com/5e4fc5d1bf461fcc27b958d85e4054d9

Sub 消去ボタン()

'

' 消去ボタン Macro

'

Range("E5").Select

ActiveCell.FormulaR1C1 = ""

Range("E6").Select

ActiveCell.FormulaR1C1 = ""

Range("E7").Select

ActiveCell.FormulaR1C1 = ""

Range("e5").Select

End Sub