จะแทรกปุ่มใน 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