InputBox("введите 3 чисел")

CDbl(InputBox("введите 3 чисел"))

=СУММ($D$3:[@1ст])

Function TextToClip(strText As String) As String
    Dim obj       As Object
    Set obj = CreateObject("HtmlFile")
    If strText <> "" Then
        obj.ParentWindow.ClipboardData.SetData "text", strText
    End If
End Function

Sub CopyData()
    TextToClip WorksheetFunction.Sum(Selection)
End Sub

arr(x, 6) = arr(x, 6) + arr(i, 6)

arr(x, 2) = arr(x, 2) + arr(i, 6)

    Dim cel As Range
    With xOutMail
    For Each cel In Range("A1:A3") ' Измените диапазон
          .To = cel.Value
    Next cel
...
    End With

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng  As Range
    Dim sh  As Worksheet

    Set sh = ActiveWorkbook.Worksheets("ИмяЛиста") ' имя листа сводной таблицы
    Set rng = Range("A2:D2")

    If Not Intersect(Target, rng) Is Nothing Then
        sh.PivotTables("PivotTable1").RefreshTable
    End If
End Sub