A1 hücresine yazılan sayıyı A2 hücresindeki sayıya ekleyerek toplama işlemi yapan VBA kodu alternatifidir.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Range("A2").Value = Range("A2").Value + Target.Value
SendKeys "+~"
End If
End Sub