10000 AÑO= 0
10800 AÑO=1
11664 AÑO=2
12597,12 AÑO=3
13604,8896 AÑO=4
14693,2808 AÑO=5
15868,7432 AÑO=6
17138,2427 AÑO=7
18509,3021 AÑO=8
19990,0463 AÑO=9
21589,25 AÑO=10
Para resolverlo utilice el siguiente algoritmo
Sub años()
y = 10000
Range("a1").SelectActiveCell.FormulaR1C1 = y
For i = 1 To 10
y = y + y * 0.08
ActiveCell.Offset(0, 1).SelectActiveCell.FormulaR1C1 = y
Next i
MsgBox (y)
End Sub