Пошаговое выполнение макроса - VBA

Формулировка задачи:

Привет, написал макрос который добавляет в активную ячейку цифру и переходит ниже на ячейку и тоже добавляет цифру, нужно чтоб при нажатии кнопки он добавлял цифру в активную ячейку, при следующем нажатии переходил на ячейку ниже и к предыдущей цифре добавлял + 3 и так при каждом нажатии, как реализовать такой макрос Спасибо

Public Sub ActiveRow()
MsgBox ActiveCell.Address
ActiveCell.Value = 3
ActiveCell(2).Activate
ActiveCell.Value = 3
End Sub
Sub Macro()
ActiveRow
End Sub

Решение задачи: «Пошаговое выполнение макроса»

textual
                            Листинг программы 
                        

                            Public Sub ActiveRow()
Dim val As Variant
MsgBox ActiveCell.Address
val = ActiveCell.Value
If val > 0 Then
ActiveCell.Value = val * 3
val = ActiveCell(2).Value
End If
End Sub
Sub Macro()
ActiveRow
End Sub
                        