code automatisch erstellen

ich habe folgenden code:

Sub zum_1_punkt()
Range("A4").Select
ActiveWindow.SmallScroll down:=31
Range("a35").Select
End Sub

Sub zum_2_punkt()
Range("A4").Select
ActiveWindow.SmallScroll down:=62
Range("a66").Select
End Sub

diese Sub's muss ich noch schreiben bis Sub 300. Jedesmal die SmallScroll down um 31 erhöhen und den 2.Range ebenfalls um 31 erhöhen. Kann mir jemand einen code geben der die Sub's automatisch erzeugt? Wobei auch der Sub Name um ein erhöht wird. Also der nächste code müsste lauten:

Sub zum_3_punkt()
Range("A4").Select
ActiveWindow.SmallScroll down:=93
Range("a97").Select
End Sub

usw.

Vielen Dank für Eure Hilfe

Gruss Bernd