Hjælp til tomme rækker

Prøv med denne makro

Sub NewLine()
LastRow = ActiveSheet.UsedRange.Rows.Count
For x = LastRow To 2 Step -1
If Cells(x, 1) <> Cells(x - 1, 1) Then Rows(x).Insert
Next
End Sub

Hvis du vil have makroen til at køre automatisk, når der skrives i kolonne A kan du bruge denne makro:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
LastRow = ActiveSheet.UsedRange.Rows.Count
For x = LastRow To 2 Step -1
If Cells(x, 1) <> Cells(x - 1, 1) And Cells(x, 1) <> "" And Cells(x - 1, 1) <> "" Then Rows(x).Insert
Next
End If
End Sub