Sum all the entries of same Cell

Try this

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target = Range("A1") Then
Range("B1").Formula = "=" & Range("A1").Value + Range("B1").Value
End If
End Sub