Rij invoegen m.b.v. macro

[BennyBang]

Ik wil graag dat er tussen de verschillende nummers in Kolom A met een macro een lege rij word ingevoegd.
De achterliggende rijen moeten meegenomen worden t/m kolom T

Kan mij iemand op weg helpen.

De nummers in Kolom A zijn oplopend maar niet aansluitend ( 1,2,3,6,7,9,10) maar verschillen in aantal.

Op blad 1 de basis, op blad 2 wat het moet worden.

 

[edmoor]

Dat kan met deze:

Sub LegeRegel()
    For i = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row + 1 To 2 Step -1
        If Cells(i - 1, 1) <> Cells(i, 1) Then
            Rows(i).Insert
        End If
    Next i
End Sub

Of wil je die regels ook grijs gekleurd hebben?

 

[BennyBang]

Super bedankt, werkt perfect. :thumb:

 

[BennyBang]

Toch nog een aanvullende vraag.

Hoe kan deze formule altijd op rij A17 beginnen.

Alvast bedankt.

 

[edmoor]

Hij begint bij de laatste regel en loopt dan terug tot 2. Jij wilt stoppen bij bij 17 in plaats van 1. Maak er dan dit van:
For i = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row + 1 To 18 Step -1

 

[BennyBang]

Beste Edmoor, nogmaals super bedankt. :thumb: