Ontbrekende rijen toevoegen met vba

[Wiesje9]

Ik heb een bestand in excel met klantnummers en de daarbijhorende namen (+/- 10000), in dit bestand ontbreken er echter nummers en op deze plaatsen had ik graag dmv een VBA code lege rijen toegevoegd, maar ik geraak er zelf niet uit. Heeft iemand de oplossing?
Ik voeg in bijlage een klein bestandje bij, het origineel kan ik omwille van privacyredenen niet meesturen.

#Durftevragen.Bekijk bijlage Testbestand.xlsx

 

[SjonR]

zo ?

Sub SjonR()

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

 

[Wiesje9]

Hallo

Hartelijk dank!!!

Gr. Wiesje:thumb::thumb: