loop with two variables

[kingman29]

Hello
I have a Monster function,
is that possible to make this function inVBA ?
A1 = 15%
B1 = -(15%^1) -(15%^2) -(15%^3) - (15%^4) - (15%^5) - (15%^6) - (15%^7) - (15%^8) - (15%^9)...... -(15%^99)
witch mean every time we subtract A1 with the increase of power

 

[Marcelo Branco]

Try this array formula in B1
=SERIESSUM(A1,1,1,-(ROW(A1:A100)^0))
confirmed with Ctrl+Shift+Enter simultaneously, not just Enter

M.

 

[Marcelo Branco]

oops 99 is the last power, not 100

Try
=SERIESSUM(A1,1,1,INDEX(-(ROW(A1:A99)^0),))
confirmed with just Enter

M.

 

[kingman29]

Sorry I forgot to say in Vba
sorry

 

[Marcelo Branco]

Something like this

With Range("B1")
    .Formula = "=SERIESSUM(A1,1,1,INDEX(-(ROW(A1:A99)^0),))"
    .Value = .Value
End With

M.