QUESTÃO 5 (VBA) - LISTA 5 (SEQUÊNCIAS) SEGUNDO ESTÁGIO

Public Sub L6_Q5()
'LOCAIS DE MEMORIA
Dim I As Integer, N As Integer, D As Integer, N_ANT As Integer
'CALCULOS
N = 2
D = 1
For I = 1 To 10 Step 1
    Cells(1, I) = N
    Cells(2, I) = D
    N_ANT = N
    N = N + D
    D = N_ANT
End Sub