Нужно,чтобы по кнопке на поле срабатывал макрос. Смысл макроса: есть два столбца (в первом количество товара, во втором стоимость) нужно просуммировать стоимость всех товаров, где кол-во больше 50. Ошибки в моем коде наверное детские, но для меня не очевидные. Пробовала определять массивы через лонг и счетчик не до 1000 а через UBoun, не спасло.Помогите.
Private Sub CommandButton1_Click()
Dim arrKol
Dim arrStoim
Dim summa As Long
Dim i As Integer

summa = 0
i = 0

arrKol = [D18:D1017]
arrStoim = [F18:F1017]

For i = 1 To 1000

If arrKol(i) > 50 Then
summa = summa + arrStoim(i)
End If

Next i

Cells(10, 4) = summa

End Sub