Повторное добавление кнопки с макросом через VBA

Question

Пытаясь создать поле ввода, в которое пользователь может вводить заметки, эти заметки будут вводиться в один и тот же документ и одновременно создавать макрос, включающий «значок пальца вверх», который будет содержать макрос, который другие члены могут «одобрить» идеиони хотят продвигать.Приведенный ниже код вызывает дублирование кнопки в той же ячейке.Мне нужно, чтобы вместо этого применить к следующей доступной ячейке.

Sub VBA_Input_Idea_inputbox() 
 Dim MyInp As String
 Dim NextRow As Long

 MyInp = VBA.Interaction.InputBox("Please input idea", "LEARNING 
    REQUEST")
  If MyInp = "" Then Exit Sub
 NextRow = Cells(Rows.Count, 3).End(xlUp).Row + 1
 Range("C" & NextRow).Value = 
 Excel.WorksheetFunction.Proper(MyInp)
 Range("A" & NextRow).Select
 ActiveSheet.Buttons.Add(0.75, 145.5, 42, 24.75).Select
 Selection.OnAction = "Addcount"
  End Sub

Answer 1

Примерно так:

Sub VBA_Input_Idea_inputbox()
    Dim MyInp As String
    Dim NextRow As Range, btn

    MyInp = VBA.Interaction.InputBox("Please input idea", "LEARNING REQUEST ")
    If MyInp = "" Then Exit Sub
    With ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).EntireRow
       .Cells(3).Value = Application.Proper(MyInp)
       Set btn = ActiveSheet.Buttons.Add(.Cells(1).Left, .Cells(1).Top, _
                                         .Cells(1).Width, .Cells(1).Height)
       btn.OnAction = "Addcount"
    End With
End Sub