Posto lo script.
A questo punto l'osservazione dovrebbe essere facilitata, giusto?
'Fascia ritardo 18 o a scelta (Cinzia27)
Sub main()
Dim a1(1),ru(1),sp(5)
Dim n(1)
fascia=18 'imposta la fascia
fin=EstrazioneFin
ini=fin-10
For es=ini To fin
Scrivi
Scrivi
Scrivi...