Indsætte variabel antal rækker

Opfølgning... Jeg roder med noget lignende dette her til at indsætte et variabel antal linjer:

Dim i As Integer
Dim insertNumber As Range
Set insertNumber = Range("inset_antal_linjer_manglende_fakt")

For i = 1 To insertNumber
Application.Goto Reference:="manglende_gl_fakt_slut"
Selection.EntireRow.Insert
Next i

Her selv fundet løsningen:
For i = 1 To rowcount
Application.Goto Reference:="manglende_gl_fakt_slut"
Selection.EntireRow.Insert
Next i

Application.Goto Reference:="manglende_fakt_start"
Selection.End(xlDown).Select
Range(Selection, Selection.End(xlDown).Offset(0, 1)).Select
Selection.Copy
Application.Goto Reference:="manglende_gl_fakt_slut"
Selection.End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Application.Goto Reference:="manglende_fakt_start"
Selection.End(xlDown).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents