Código Macro Fibonacci

Sub fibonacci()
Cells(1, 2) = Int(Rnd() * 10)
Cells(2, 2) = Int(Rnd() * 10)
i = 1
Do While i < 21
    Cells(i + 2, 2) = Hoja1.Cells(i, 2) + Cells(i + 1, 2)
    i = i + 1
    Cells(i + 1, 2).Select
Loop
End Sub