Hvis A1=A2, slet række i A3

If [a1] = [A2] Then Rows("3:3").Delete Shift:=xlUp

Jeg har vist udtrykt mig forkert.
jeg har 350 rækker og 7 kollonner. Første kollonne er numre, hvor A1=A2, A3 er nyt numer, og derfor skal der indsættes en tom række imellem A2 og A3, osv. ned igennem rækkerne. Antalet af ens celler i kollonne A kan variere. Derfor skal formelen/makroen skellende imellem "ikke ens numre".

Sub Makro1()
For i = Range("A65536").End(xlUp).Row To 2 Step -1
If Cells(i, 1) <> Cells(i - 1, 1) Then
Rows(i & ":" & i).Insert Shift:=xlDown
End If
Next
End Sub

super, det virker.
afslut med svar

et svar ;-))

tak for point