VBA Excel: как присвоить значения пустым слотам в массиве через функцию

Question

В настоящее время я работаю над небольшим интерполяционным кодом (разделенная разница Ньютона). Проблема в том, что у меня проблемы с назначением табличных значений, которые я вычислил в функции, моему начальному массиву со значениями f (x). Я получаю сообщение об ошибке «Невозможно назначить массив» Любая помощь будет принята с благодарностью

Вот небольшой фрагмент рассматриваемого кода и как я объявил переменные

'Dim our variables, arrays
`Dim n, i, order As Integer
Dim x(9), y(9, 9), xi As Double

n = 9

'select our x data

For i = 0 To n
    x(i) = Worksheets("Newton").Range("B" & i + 4)
Next

'select our y data

For i = 0 To n
    y(i, 0) = Worksheets("Newton").Range("D" & i + 4)
Next


'select the value at which we want to interpolate
xi = Range("E1")

'This is where the problem is
y = divided_Table(x, y, n)

'Message the output
MsgBox "The estimate of f(x) is " & applyNewton(xi, x, y, n)


End Sub

Function divided_Table(x, y, n)
Dim i, j As Integer
    For i = 1 To n
        For j = 0 To n - i
            y(j, i) = ((y(j, i - 1) - y(j + 1, i - 1)) / (x(j) - x(i + j)))

            Next j
        Next i

End Function