Indsætte række

ret til aktuel arknavn i linie 2

Sub IndsætRK()
Set sh = Sheets("Ark1")
rk = sh.Cells(1100, "D").End(xlUp).Row
For t = rk To 5 Step -2
If Cells(t, "D") <> Cells(t - 1, "D") Then Cells(t, "D").EntireRow.Insert
Next
End Sub

Sub Indsaet ()
    Dim i As Long
    Application.ScreenUpdating = False
    With Worksheets("ark1")
        For i = .Cells(.Rows.Count, "d").End(xlUp).Row To 5 Step -1
            If .Cells(i, "d").Value <> .Cells(i + 1, "d").Value Then
                .Rows(i).Insert
            End If
        Next i
    End With
    Application.ScreenUpdating = True