lege rij met voorwaarde

[moensk]

ik zoek een macro om lege rijen in te voegen
In kolom D heb ik ritnrs staan, om het overzicht beter te hebben zou ik graag na elke wijziging van rit een lege rij invoegen.
in bijlage een klein voorbeeldje met enkele rijen en eronder het gewenste resultaat.

alvast bedankt

 

[gast0660]

Sub dotch()
Set bereik = Range("a2")
rij = bereik.Row
kolom = bereik.Column
Do
If Cells(rij + 1, kolom) <> Cells(rij, kolom) Then
    Cells(rij + 1, kolom).EntireRow.Insert shift:=xlDown
    rij = rij + 2
Else
    rij = rij + 1
End If
Loop While Not Cells(rij, kolom).Text = ""
End Sub

 

[moensk]

gast0660
super bedankt ! werkt goed

 

[gast0660]

Graag gedaan.