Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x As Double, c As Range
For Each c In Target
If IsNumeric(c) Then x = x + c.Value
Next c
With Target.Areas(Target.Areas.Count).Item(Target.Areas(Target.Areas.Count).Count)
Label1.Caption = x
Label1.Left = .Offset(0, 1).Left
Label1.Top = .Offset(1, 0).Top
End With
End Sub