Function Newton(x As Double, r As Range) As Double
    Application.Volatile
    Dim m() As Double
    Dim i As Integer, j As Integer, n As Integer, k As Integer, l As Integer
    
    n = r.Rows.Count
    ReDim m(1 To n, 1 To n + 1)
    
    For i = 1 To n
        For j = 1 To 2
            m(i, j) = r(i, j)
        Next j
    Next i
    
    k = 1
    
    For j = 3 To n + 1
        k = k + 1
        For i = k To n
            m(i, j) = (m(i, j - 1) - m(i - 1, j - 1))
            m(i, j) = m(i, j) / (m(i, 1) - m(i - j + 2, 1))
        Next i
    Next j
    
    For i = 1 To n
        m(i, 1) = x - m(i, 1)
        m(i, 2) = m(i, i + 1)
    Next i
    
    For i = 2 To n
        m(i, 1) = m(i, 1) * m(i - 1, 1)
    Next i
    
    For i = n To 2 Step -1
        m(i, 1) = m(i - 1, 1)
    Next i
    
    m(1, 1) = 1
    
    For i = 1 To n
        Newton = Newton + m(i, 1) * m(i, 2)
    Next i

End Function