Hücreye girilen sabit değerin formül sonucunu yine aynı hücreye yazma

[superstars]

Bir hücreye girilen değerin farklı bir hücreyle işlemi yapıldıktan sonra sonucu yine aynı hücreye yazmasını nasıl sağlayabilirim?

Örneğin A1 hücresine yazdığım bir değeri A5 hücresiyle toplayarak işlemin sonucunu yine daha önce değerini yazdığım A1 hücresinde görmek istiyorum.Bunu nasıl yapabilirim yada yapabilir miyim?

 

[uzmanamele]

Merhaba

Örnek dosyada ki gibi mi?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a1")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Range("a1") = Range("a1") * Range("a5")
Application.EnableEvents = True
End Sub