Найти произведение элементов, расположенных до максимального и количество после минимального

Option Explicit
 
Const Нижняя_граница_массива% = -2
Const Верхняя_граница_массива% = 7
Const Минимальное_число% = -10
Const Максимальное_число% = 10
 
Sub Min_Max_Match()
Dim mass#(Нижняя_граница_массива To Верхняя_граница_массива)
Dim Pmax%, Pmin%, Max#, Min#, n%, M#, C%, Smin%, Smax%
Randomize
For n = LBound(mass) To UBound(mass)
    mass(n) = Int(Rnd * (Максимальное_число - Минимальное_число)) + Минимальное_число
Next
With Application
    Min = .Min(mass)
    Max = .Max(mass)
    Pmax = .Match(Max, mass, 0) + LBound(mass) - 1
    Pmin = .Match(Min, mass, 0) + LBound(mass) - 1
    Smax = Pmax - LBound(mass) + 1
    Smin = Pmin - LBound(mass) + 1
    Cells.Clear
    [a1].Resize(UBound(mass) - LBound(mass) + 1) = .Transpose(mass)
End With
M = 1
For n = LBound(mass) To Pmax - 1
    M = M * mass(n)
Next n
C = UBound(mass) - Pmin
MsgBox "Минимальное значение = " & Min & " (элемент № " & Pmin & ", строка № " & Smin & ")" & vbLf & _
    "Максимальное значение = " & Max & " (элемент № " & Pmax & ", строка № " & Smax & ")" & vbLf & _
    "Произведение элементов, расположенных до максимального (невключительно) = " & _
    IIf(Pmax = LBound(mass), "n/a", M) & vbLf & "Количество эл-тов после минимального = " & C
End Sub

Dim Mass(2 to 3)