Sub Сумма_выделенных_ячеек_копирование_в_буфер()
'Время = Timer
Set mycell = Selection
    For Each mycell In mycell.Cells
    If IsNumeric(mycell) = True Then
       iSum = iSum + mycell
    End If
Next
'Подключи Microsoft Forms 2.0 Object Library
Set MyData = New DataObject
   MyData.SetText iSum
   MyData.PutInClipboard
'ВсеВремя = Timer - Время
'MsgBox ВсеВремя
End Sub

Sub Сумма_выделенных_ячеек_копирование_в_буфер()
Dim mycell As Range
Dim Адрес As String
Dim kol As Long
Dim iSum As Double
Dim MyData As Object

Время = Timer
Set mycell = Selection
 Адрес = Selection.Address(ReferenceStyle:=xlR1C1, RowAbsolute:=True)

If InStr(Адрес, ":") =  0  Then Exit Sub ' выход если выделена одна ячейка (столбец, строка)
    For Each mycell In mycell.Cells
    kol = kol +  1 
    Всевремя = Timer - Время
    If Всевремя >  0 . 25  Then Exit Sub ' Ограничение по времени работы кода
    If kol >  65600  Then Exit Sub ' Ограничение по кол-ву ячеек участвующих в подсчете
        If IsNumeric(mycell) = True Then
           iSum = iSum + mycell
        End If
    Next
'Подключи Microsoft Forms 2.0 Object Library
Set MyData = New DataObject
   MyData.SetText iSum
   MyData.PutInClipboard
Всевремя = Timer - Время
'MsgBox Всевремя

End Sub

Cells( 1 ,  1 ) = (Evaluate("sum((" & Target.Address & "))"))

Cells( 1 , 1 ) = Application.Sum(Target)