Учимся писать макросы

Question

Я работаю над созданием простого бюджета в Excel.Я хочу добавить макросы ради обучения, поэтому некоторые вещи, которые я собираюсь попросить, легко добавляются.

Каждый месяц года я делю на несколько категорий, как расходы (илидоход) Я хотел бы иметь возможность выбрать категорию из выпадающего списка, который затем предложит ввести в поле ввода значение расхода / дохода.Как только Okay выбран, я хотел бы, чтобы значение было добавлено к текущему значению в ячейке.Вот что у меня есть:

Private Sub ComboBox1_Change()
ComboBox1.Clear
ComboBox1.Value = ""
With Sheet3.ComboBox1
    .AddItem "Income"
    .AddItem "Asha"
    .AddItem "Grocery"
    .AddItem "Misc."
    .AddItem "Food/Cafe"
    .AddItem "To Sarah"
    .AddItem "Student Loan"
    .AddItem "Ally Savings"
    .AddItem "Insurance"
    End With
End Sub

Sub GetValue()
    Dim PopUp As Variant
    PopUp = Application.InputBox(prompt:="Enter Amount", Default:="Only Numbers", Type:=1)

End Sub

Я уверен, что могу просто сделать это с помощью сводной таблицы, но это будетнаучите меня думать о написании макросов.Любые советы будут с благодарностью!