Non si capisce se la devi fare da codice o ti basta una cosa che funziona senza complicazione...
Nel 2° Caso questo rappresenta lo sviluppo della sequenza di Fibonacci:
A1: 1
A2: 1
A3:=SOMMA($A1:$A2)
Ovviamente trascina A3 in basso fino a quanto ritieni opportuno.
Se vuoi crearla da codice... direi che la logica è la medesima ovviamente dovrai cilcare dal 3° elemento in quanto i primi 2 sono sempre=1
Public Sub Fibonacci(indice As Long, Optional Column as Long=1)
Dim lngCellPointer As Long
Dim sh As Worksheet
Set sh = ThisWorkbook.Worksheets("Foglio1")
With sh
.Cells(1, Column).Value = 1
.Cells(2, Column).Value = 1
For lngCellPointer = 3 To indice
.Cells(lngCellPointer,Column).Value = .Cells(lngCellPointer - 2,Column).Value + .Cells(lngCellPointer - 1,Column).Value
Next
End With
Set sh = Nothing
End Sub
dove Indice è il numero Limite della serie... il Parametro Optional è la COLONNA in questo caso usiamo di Optional "A"...