Public Sub Числа_4_3()
    Dim I As Integer
    
    Call Очистка_Numbers        'Очистка чисел, результатов подсчетов, перенесенных чисел
    Randomize Timer
    For I = 1 To 10
        Sheets("Numbers").Cells(I, 1) = Int(Rnd * 100) - 50
    Next I

End Sub

Public Sub Очистка_Numbers()
    With Sheets("Numbers")
        .Range("A1:A10").ClearContents
        .Range("C2:D5").ClearContents
    End With
End Sub

Public Sub Вычисления_4_3_V1()
                            ' Объявление переменных
    Dim ValMax As Integer       '— переменная для вычисления максимума чисел
    Dim ValMin As Integer       '— переменная для вычисления минимума  чисел
    Dim ValAve As Double        '— переменная для вычисления среднего  чисел
    Dim ValPro As Double        '— переменная для вычисления произведения чисел
    Dim Summa As Integer        '— переменная для вычисления суммы чисел
    
    Dim I As Integer            '— переменная цикла
    Dim R As Integer            '— переменная для текущего значения ячейки

    With Sheets("Numbers")
        ValMax = .Range("A1")   ' начальное значение максимума
        ValMin = .Range("A1")   ' начальное значение минимума
        Summa = 0               ' начальное значение суммы
        ValPro = 1              ' начальное значение произведения
        
        For I = 1 To 10                 ' Суммируем числа в цикле
            R = .Cells(I, 1)
            Summa = Summa + R
            If ValMax < R Then ValMax = R
            If ValMin > R Then ValMin = R
            ValPro = ValPro * R
        Next I
        ValAve = Summa / 10
        
        .Range("C2") = "Максимум чисел (V1)="   'Вывод на лист "Numbers" результаты вычисления с поясняющими надписями
        .Range("D2") = ValMax
        .Range("C3") = "Минимум чисел  (V1)="
        .Range("D3") = ValMin
        .Range("C4") = "Среднее чисел  (V1)="
        .Range("D4") = ValAve
        .Range("C5") = "Произведение чисел  (V1)="
        .Range("D5") = ValPro

    End With
End Sub

Public Sub Вычисления_4_3_V2()
    With Sheets("Numbers")
        .Range("C2") = "Максимум чисел (V2)="   'Вывод на лист "Numbers" результаты вычисления с поясняющими надписями
        .Range("D2") = Application.WorksheetFunction.Max(Sheets("Numbers").Range("A1:A10"))
        .Range("C3") = "Минимум чисел  (V2)="
        .Range("D3") = Application.WorksheetFunction.Min(Sheets("Numbers").Range("A1:A10"))
        .Range("C4") = "Среднее чисел  (V2)="
        .Range("D4") = Application.WorksheetFunction.Average(Sheets("Numbers").Range("A1:A10"))
        .Range("C5") = "Произведение чисел  (V2)="
        .Range("D5") = Application.WorksheetFunction.Product(Sheets("Numbers").Range("A1:A10"))
    End With
End Sub