[vba] implementazione di una sommatoria

[misterx]

riferemdomi al seguente link video fourier ho scritto il seguente codice sotto riportato, ma non c'è verso di ottenere quell'onda quadra dell'esempio.
Cosa mi sfugge?

Grazie 1000

Sub esperimenti()
    
    Ap = 2
    Pi = 3.141592
    riga = 1
    f = 100
    For t = 0 To 20
        For n = 1 To 19 Step 2
            y = y + (((4 * Ap) / (n * Pi)) * Sin(n * 2 * Pi * f * t))
        Next n
        Cells(riga, "D") = y: riga = riga + 1
    Next t

End Sub