Як вставити кнопку в MS Excel?

Друзі я використовую MS Excel 2010, і я хочу вставити кнопку в лист Excel, ім'я якого повинно бути '1 ADDER', і я хочу, щоб всякий раз, коли я натискаю цю кнопку, вона повинна вставити 1 в комірку стовпця A, передня комірка якої була обрана раніше. Наприклад, якщо в клітинку немає D8, і я натискаю цю кнопку, вона повинна вставити 1 в комірку без A8. Аналогічно, якщо не вибрано клітинку Q12, а я натискаю цю кнопку, вона повинна вставити 1 в комірку № A12. Я подивився в меню розробників у excel, щоб зробити те ж саме. Є кнопка вставки, яка дозволяє вставляти кнопки, прапорці, комбо-бокси та інші речі, але я не знаю, як їх використовувати ... так що будь ласка, допоможіть ...

Поставте ці дві підстанції в стандартний модуль і запустіть MakeButton

Sub MakeButton()
    ActiveSheet.Shapes.AddShape(msoShapeOval, 228#, 557.25, 126.1, 126.1).Select
    With Selection
        .Characters.Text = "1 ADDER"
        .ShapeRange.Fill.Visible = msoTrue
        .ShapeRange.Fill.ForeColor.SchemeColor = 3
        .ShapeRange.Line.Visible = msoTrue
        .ShapeRange.Line.ForeColor.SchemeColor = 3
        .ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
        .Name = "MyButton"
        .OnAction = "whatever"
        .Top = Range("C3").Top
        .Left = Range("C3").Left
     End With
End Sub

Sub whatever()
    Cells(ActiveCell.Row, 1).Value = 1
End Sub

Зробити Ім'я кнопки 1 ADDER , просто оновіть рядок з MyButton