Форвардные ставки VBA

[Boris123]

Добрый день.

Написал код, который позволяет считать форвардные ставки по спот ставкам, но он работает только для одного года. Мне нужно построить "пирамидку", как в прикрепленном файле. Мучаюсь с итерацией уже 2 дня. Помогите, пожалуйста.

Вот код, который написал
Sub calcFWD()

Dim SpotRate(500) As Double, FwdRate(500) As Double, i As Integer, n As Integer
'read all spot rates into the array as input
Worksheets(1).Activate
n = Range("B:B").Cells.SpecialCells(xlC ellTypeConstants).Count
Range("G1").Offset(1, 0) = n
For i = 1 To n
SpotRate(i - 1) = Range("A2").Offset(i, 1)
Next i

'calculate the foward rate
For i = 1 To n
If i = 1 Then
FwdRate(0) = SpotRate(0)
Else
FwdRate(i - 1) = (1 + SpotRate(i - 1)) ^ i / (1 + SpotRate(i - 2)) ^ (i - 1) - 1
End If
Next i

'output the result
For i = 1 To n
Range("E2").Offset(i, 0) = FwdRate(i - 1)
Next i

End Sub