Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.Calculate
End Sub

Public Function SumNoSelected(Rng As Range) As Double
Dim SumValue As Double
Dim SumValueOfSelection As Double
Dim IntersectionRange As Range
    
    Application.Volatile

'    сумма значений в области-аргументе
    SumValue = Application.WorksheetFunction.Sum(Rng)
    
'   выделенные ячейки, попадающие в область-аргумент
    Set IntersectionRange = Application.Intersect(Rng, Application.Selection)
    
    If IntersectionRange Is Nothing Then
'       если нет выделенных ячеек в Rng, то суммы вычета равна 0
        SumValueOfSelection =  0 
    Else
'       если есть выделенные ячейки в области-аргументе, то вычисляем их суммы
        SumValueOfSelection = Application.WorksheetFunction.Sum(IntersectionRange)
    End If
    
    Set IntersectionRange = Nothing
    
'   итоговая сумма
    SumNoSelected = SumValue - SumValueOfSelection
End Function