Помогите пожалуйста найти ошибка.Массив в VBA.2.В заданном массиве а уменьшить все элементы с четными индексами на величину минимального элемента.
Private Sub CommandButton1_Click()
Dim mainArr()
n = Val(InputBox("Ввод количества элементов"))
currRow = 2
ReDim mainArr(0 To 1)
With ActiveSheet
Do While .Cells(currRow, 1).Value <> ""
mainArr(currRow - 2) = .Cells(currRow, 1).Value
currRow = currRow + 1
ReDim Preserve mainArr(0 To UBound(mainArr))
Loop
End With
For i = 0 To UBound(mainArr) - 2
If i Mod 2 = 0 Then
Cells(i + 2, 5).Value = mainArr(i) / Min
Else
Cells(i + 2, 5).Value = ""
End If
Next i
End Sub