Meerdere rijen x aantal maal kopieren

[reindertje]

Op basis van de code

Rijen_Invoegen()
    Range("A2:A11").Select
 Do Until ActiveCell.Value = ""
    Selection.EntireRow.Insert
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1:A10").Select
Loop
    ActiveCell.Offset(1, 0).Range("A1:A10").Select
    Selection.EntireRow.Insert
    Range("A1").Select
End Sub

(zie Topic Meerdere rijen tegelijk invoegen wilde ik hetvolgende proberen:

Een lijst met 120 nummers, welke allen ver-negen-voudigd moeten worden.
Ofwel, waarde in rij 1 moet in rij 1-2-3-4-5-6-7-8-9 komen, en zo voor de andere 119 rijen ook.
Wie weet hoe deze code te tweaken?
Als ik een simpele macro gebruik kom ik voor de eerste cel op

        Rows("1:1").Select
        Application.CutCopyMode = False
        Selection.Copy
        Rows("2:9").Select
    Selection.Insert Shift:=xlDown

 

[ExcelAmateur]

reindertje,

Kijk eens in de help van Excel bij For Next

 

[reindertje]

Het probleem zit hem er vooral in dat in hoe ik ook stoei, dat ie altijd de rijen 2 tot en met 9 overschrijft... Ik weet niet hoe de 8 cellen na de broncel te pakken..