Исправить ошибки в реализации Метода Гаусса - VBA

Function Gauss(n)
 
Dim x(), A(), b()
ReDim x(n) As Variant
 
For i = 1 To n
 For j = 1 To n
 A(i, j) = Cells(21 + i, j).Value 'вылетает не присваивает значение (Заполнение массива значениями с листа)
 b(i) = Cells(21 + i, 4).Value
 Next j
Next i
 
For i = 1 To n
 For j = i + 1 To n
  A(j, i) = -A(j, i) / A(i, i)
  For k = i + 1 To n
   A(j, k) = A(j, k) + A(j, i) * A(i, k)
   b(j) = b(j) + A(j, i) * b(i)
  Next k
 Next j
Next i
x(n) = b(n) / A(n, n)
For i = n - 1 To 1
 h = b(i)
 For j = i + 1 To n
  h = h - x(j) * A(i, j)
  x(i) = h / A(i, i)
 Next j
Next i
Gauss = x
End Function