Indsæt ny række hver ny forekomst Macro

Postnr står i kolonne H

hov jeg mener efter hver nye forekomst af kundenr som står i kolonne d.

stil dig i den relevante kolonne, så vil denne kode indsætte en ny rækker hver gang der er en ændring i kolonnen.

Sub insert_row_on_change()

' Insert row if evaluated cells contents differs

If ActiveCell.Row < 2 Then
    ActiveCell.Offset(1, 0).Select
End If

Do While Not ActiveCell.Value = Empty
    If ActiveCell.Value <> ActiveCell.Offset(-1, 0).Value Then
        ActiveCell.EntireRow.Insert
        ActiveCell.Offset(2, 0).Select
    Else: ActiveCell.Offset(1, 0).Select
    End If
   
   
Loop

End Sub

tak det virkede :)