Rij invoegen op basis van aantal rijen geteld

[Dennisjuhh]

Beste Helpers,

Op het moment heb ik even de volgende code:

Sub testje()

Dim AantalRij As Integer

AantalRij = Range("A2", Range("A2").End(xlDown)).Rows.Count
Rows(AantalRij).EntireRow.Insert


End Sub

Hij telt nu het aantal rijen in dat bereik, in dat geval 2. Nu wil dat hij bijvoorbeeld in cel A10 2 rijen invoegd. Maar ik krijg het niet werkend. Iemand suggesties?

Alvast bedankt!

 

[edmoor]

Je wilt rijen invoegen in een cel???

 

[Dennisjuhh]

Oke ik vertel het een beetje krom, hij moet het aantal rijen dat is geteld invoegen vanaf rij 10 dan als voorbeeld.