создать функцию в vba для excel a1=a1+a2

Как создать в excel рекурсивную функцию, ссылающуюся саму на себя - задача подсчет в ячейке суммы нарастающим итогом
а1=а1+а2


PS:включение параметра итерации приводит к нежелательным пересчетам при сохранении и при выполнении других вычислений на листе
А, применение обработки данного события не дает возможности вернуться назад (back) и отменить действие

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
If IsNumeric(Range("B2")) And IsNumeric(Target) Then
Range("B2") = Range("B2") + Target
End If
End If
End Sub