Indsætte ny række efter hver række i arket

Her er noget koder der løser opgaven.

Sub InsRows()

Dim Row As Range
Dim Sheet As Worksheet

Dim I As Integer


Set Sheet = ActiveSheet
   
For I = Sheet.UsedRange.Rows.Count To 2 Step -1 ' ret 2 til 1 hvis øverste række skal være blank.
    If Not IsEmpty(Sheet.Rows(I)) Then
        Sheet.Rows(I).Insert
    End If
Next
   
End Sub

Super! Mange tak. Ha' en god dag