Доделать программу на VBA

[Zulfat1993]

Sub mane()
Dim a(10) As Single
Dim b(10) As Single
Dim c(10) As Single
Dim i, j As Integer
For i = 1 To 10 Step 1
a(i) = Cells(1, i)
b(j) = Cells(2, i)
Next i
For i = 1 To 10 Step 1
If a(i) - b(i) <= 2 Then
c(i) = a(i) ^ 2
Else
c(i) = b(i) ^ 3
End If
Cells(4, i) = c(i)
Next i
End Sub

На экселе вводил два разных массива,а программа всё равно выводит выводит 4 4 0 0 0 0 0 0 0 0.
Подскажите где ошибка?

[eoln]

b(j) = Cells(2, i)

Меняй j на i

[Zulfat1993]

Сообщение от eoln

b(j) = Cells(2, i)

Меняй j на i

Тупанул маленько.Спасибо большое