Массивы. Вывод в Excel

[Джиган]

Всем доброго времени суток. Программа следующая (много простых операций):

Option Explicit
Sub pr1()
Dim A(50) As Integer, n As Byte, y As Byte, s As Byte, x As Integer, pr As Integer, min As Integer, max As Integer, k As Byte, i As Byte

n = InputBox("введи длину массива")

Randomize
For y = 1 To n
A(y) = Int(Rnd * 35 - 15)
Cells(1, y) = A(y)
Next y

x = InputBox("ввод x")

'сумма элементов кратных трем'
s = 0
For y = 1 To n
If A(y) Mod 3 = 0 Then s = s + A(y)
Next y
Cells(5, 5) = "сумма" & s

'Произведение элементов стоящих на четных местах'
pr = 1
For y = 2 To n Step 2
pr = pr * A(y)
Next y
Cells(6, 5) = "произведение" & pr

'Количество отрицательных элементов > заданного x'
k = 0
For y = 1 To n
If A(y) < 0 And A(y) > x Then
k = k + 1
End If
Next y
Cells(7, 5) = "количество=" & k

'поиск max элемента из НЕЧЕТНЫХ положительных и его индекса'
max = -16
For y = 1 To n
If A(y) > max And A(y) Mod 2 <> 0 And A(y) > 0 Then max = A(y)
i = y
Next y
Cells(8, 5) = "max=" & max & "индекс max=" & i

'поиск min элемента'
min = 21
For y = 1 To n
If A(y) < min Then min = A(y)
Next y
Cells(9, 5) = "min=" & min

'увеличиваются отрицательные элементы в 2 раза и массив выводится во 2 строку'
For y = 1 To n
If A(y) < 0 Then A(y) = A(y) * 2
Cells(2, y) = A(y)
Next y

'четные элементы заменяются заданной суммой и массив выводится в 3 строку'
For y = 1 To n
If A(y) Mod 2 = 0 Then A(y) = s
Cells(3, y) = A(y)
Next y

'найденный max заменяется найденным количеством'
For y = 1 To n
A(i) = k
Cells(4, i) = A(i)   
Next y
End Sub

Однако вы excel следующая картина:


Вопрос: откуда там столько нулей?
пожалуйста, помогите найти ошибку. Буду очень благодарен)

[doober]

Sub Vau()
Dim A() As Integer, n As Byte, y As Byte, s As Integer, x As Integer, pr As Double, min As Long, max As Double, k As Byte, i As Byte

n = InputBox("введи длину массива")
ReDim A(1 to n)
Randomize
For y = 1 To n
A(y) = Int(Rnd * 35 - 15)
Cells(1, y) = A(y)
Next y

x = InputBox("ввод x")

'сумма элементов кратных трем'
s = 0
For y = 1 To n
If A(y) Mod 3 = 0 Then s = s + A(y)
Next y
Cells(5, 5) = "сумма" & s

'Произведение элементов стоящих на четных местах'
pr = 1
For y = 2 To n Step 2
pr = pr * A(y)
Next y
Cells(6, 5) = "произведение" & pr

'Количество отрицательных элементов > заданного x'
k = 0
For y = 1 To n
If A(y) < 0 And A(y) > x Then
k = k + 1
End If
Next y
Cells(7, 5) = "количество=" & k

'поиск max элемента из НЕЧЕТНЫХ положительных и его индекса'
max = -16
For y = 1 To n
If A(y) > max And A(y) Mod 2 <> 0 And A(y) > 0 Then max = A(y)
i = y
Next y
Cells(8, 5) = "max=" & max & "индекс max=" & i

'поиск min элемента'
min = 21
For y = 1 To n
If A(y) < min Then min = A(y)
Next y
Cells(9, 5) = "min=" & min

'увеличиваются отрицательные элементы в 2 раза и массив выводится во 2 строку'
For y = 1 To n
If A(y) < 0 Then A(y) = A(y) * 2
Cells(2, y) = A(y)
Next y

'четные элементы заменяются заданной суммой и массив выводится в 3 строку'
For y = 1 To n
If A(y) Mod 2 = 0 Then A(y) = s
Cells(3, y) = A(y)
Next y

'найденный max заменяется найденным количеством'
For y = 1 To n
A(i) = k
Cells(4, i) = A(i)
Next y
End Sub