indsætte en tom række?

hvordan er dine data sorteret? små tal øverst eller nederst...
vil du kun have EN enkelt række indsat?

stor tal øverst. en eller to det er lige meget

Public Sub Eks686291_InsertRow()
    Dim lRow As Long
   
    For lRow = 1 To ActiveSheet.UsedRange.Rows.Count
        With ActiveSheet.Cells(lRow, 4)
            If .Value < 6 Then
                .EntireRow.Insert
                Exit For
            End If
        End With
    Next lRow
End Sub

der indsættes en række men helt øverst.

jeg har ikke forklaret helt tallene starter i celle D3.

I linien
For lRow = 1 To ActiveSheet.UsedRange.Rows.Count
ændre du ET tallet til et TRE tal

Det virker.
Mange TAk!