Rækkenumre

Er det en makro du efterlyser?

Måske.......
Bare jeg får sat tomme rækker ind hvor de mangler i talrækken

Indsættes under relevante ark (højreklik Vis programkode)
Kaldes fra Excel Alt+F8 -udpeg makroen indsætRækker - Afspil
------------------------------------------------------------
Prøv også værdierne: 2,4,5,6,8,9,10,27


Public Sub indsætRækker()
Const kolonneNr = 1                '"kolonne A
Const startVærdi = 1

Dim tal As Long, værdi As Long
Dim antalRækker
    antalRækker = ActiveCell.SpecialCells(xlLastCell).Row
    værdi = startVærdi
   
    For ræk = 1 To antalRækker + 1
        tal = Cells(ræk, kolonneNr)
       
        If tal > værdi Then
            While tal > værdi
                Rows(ræk).Select
                Selection.Insert Shift:=xlDown
                værdi = værdi + 1
                antalRækker = antalRækker + 1
            Wend
        Else
            værdi = værdi + 1
        End If
    Next ræk
End Sub

Efter lidt justering:

Rem Version 2
Public Sub indsætRækker()
Const kolonneNr = 1                '"kolonne A
Const startVærdi = 1
Dim tal As Long, værdi As Long
     
    værdi = startVærdi
   
    For ræk = 1 To 1000
        If Cells(ræk, 1) <> "" Then
            tal = Cells(ræk, kolonneNr)
       
            If tal > værdi Then
                While tal > værdi
                    Rows(ræk).Select
                    Selection.Insert Shift:=xlDown
                    værdi = værdi + 1
                Wend
               
                ræk = ræk + (værdi - ræk) - 1
            Else
                værdi = værdi + 1
            End If
        Else
            Exit For
        End If
    Next ræk
End Sub

Tak for svaret 'supertekst'
Jeg skal bé om et svar så jeg kan lukke.

Selv tak - et svar...

Jeg har prøvet at bruge version 2 af denne makro i Excel 2007 (Engelsk version).
Jeg får fgl fejlmeddelelse:

Run time error '13':
Type mismatch

Og debuggeren peger på denne linie:

tal = Cells(ræk, kolonneNr)

Jeg er ikke så kodekyndig - er der nogen der kan fortælle mig, hvad der går galt?