Option Explicit
Sub ErgaenzenVonNummern()
Dim Quelle As Object
Dim zaehler As Long, dat As Long, zaehler1 As Long, zaehler2 As Long, zaehler3 As Long, Ende As Long
Set Quelle = Workbooks(1).Worksheets(1)
Quelle.Activate
Ende = Quelle.Range("A" & Rows.Count).End(xlUp).Row
ReDim Daten(Ende, 1)
Daten() = Range("A1:A" & Ende)
For zaehler = 8 To Ende - 1
dat = Daten(zaehler + 1, 1) - Daten(zaehler, 1) - 1
If dat > 0 Then
Quelle.Rows(zaehler + 1 + zaehler1 & ":" & zaehler + zaehler1 + dat).Insert Shift:=xlDown
For zaehler2 = zaehler + 1 To zaehler + dat
Quelle.Cells(zaehler2 + zaehler1, 1) = Quelle.Cells(zaehler + zaehler1, 1) + 1 + zaehler3
zaehler3 = zaehler3 + 1
Next zaehler2
zaehler3 = 0
zaehler1 = zaehler1 + dat
End If
Next zaehler
End Sub