VBA отрицательные значения разделены на произведение положительных

[krisir]

Здравствуйте! Не пойму какая у меня ошибка, помогите найти. Задача состоит в следующем:Сформировать на рабочем листе Excel одномерный массив, состоящий из положительных, отрицательных и нулевых элементов Создать в EXcel новый массив, состоящий из элементов исходного массива, отрицательные значения которого разделены на произведение положительных значений массива
что я смогла в 2007 версии:
Public Sub mass()
Dim mass() As Single
Dim n As Integer
Dim m As Integer
Dim p As Single
Dim res As Single
Dim i As Byte
Dim j As Byte
n = Range("B3", Range("B3").End(xlDown)).count
ReDim mass(1 To n) As Single
For i = 1 To n
mass(i) = Cells(i + 2, 2)
Next i
p = 1
For i = 1 To n
If (mass(i) > 0) Then p = p * x(i)
End If
Next i
ReDim res(1 To m) As Single
For j = 1 To m
If (mass(i) < 0) Then res(j) = mass(i) / p
Cells(j + 2, 3) = res(j)
End If
Next j
End Sub
В чем здесь ошибка?

[Aleksandr H.]

Компилятор выдает какие-то ошибки, на строку n=Range... не ругается? Вы сравнивали результат работы макроса с правильным решением которое вы написали формулами на листе?

[krisir]

ругается на строку ReDim res(1 To m) As Single. а формулы на листе не задавала. у меня значения отрицат, положительные и ноль. но в операторе if для ноля условия нет, я его не включала.