Sub Fuck()

    Dim WorkCell As Object, RangeSum As Integer, RangePrd As Double, RangeAvg As Double, RangeGeom As Double

    RangeSum = 0
    RangePrd = 1
    Sheets("data").Cells.Clear

    For Each WorkCell In Sheets("data").Range("A1:E10")
        WorkCell.Value = CInt(99 * Rnd)
        RangeSum = RangeSum + WorkCell.Value
        RangePrd = RangePrd * WorkCell.Value
    Next WorkCell

    RangeAvg = RangeSum / Sheets("data").Range("A1:E10").Cells.Count
    RangeGeom = RangePrd ^ (1 / Sheets("data").Range("A1:E10").Cells.Count)

    MsgBox "Среднее арифметическое = " & RangeAvg & vbNewLine & "Среднее геометрическое = " & RangeGeom

End Sub