Помогите исправить макрос vba

[www_www]

Sub bbb()

Dim a(9, 9) As Range, n&, m&, i&, j&, n2&, x#, max#, jmax&, min#, jmin&, b#


max = -100
min = 100
For i = 1 To 9
For j = 1 To 9

If i <= 2 Then a(i, j) = (j + Sqr(Tan(d / 2)) ^ (Abs(d) + i) ^ 1 / 2)
If i > 2 Then a(i, j) = ((8 + Sqr(Abs(i + j)) + 1) ^ 1 / 3) / ((d) ^ 2 + (i) ^ 2 + 2)
Cells(i, j) = a(i, j)
Next j
Next i


For i = 1 To 9
For j = 1 To 9

If a(i, j) > max Then max = a(i, j): jmax = j
If a(i, j) < min Then min = a(i, j): jmin = j

Next j
Next i

For i = 1 To 9
x = a(i, jmax)
a(i, jmax) = a(i, jmin)
a(i, jmin) = x
Next i
For i = 1 To 9
For j = 1 To 9
Cells(10 + i, j) = a(i, j)
Next j
Next i

End Sub
макрос заполняет матрицу по формуле,меняет местами столбцы,содержащие максимальный и минимальный элемент.Он не работает,выдает ошибку 91.
Помогите пожалуйста исправить