VBA programmering?

Prøv med

Sub RykHvis()
    For Each c In Range("a1:a10").Cells
        If c.Value = c.Offset(0, 1).Value Then
            GoTo n
        Else
            c.Offset(0, 1).Select
            Selection.Insert Shift:=xlDown
        End If
n:
    Next c
End Sub


Ret selv antallet af rækker i A, der skal undersøges. Prøv i første omgang i en kopi af regnearket.

Lækkert.... kan man så lave den lidt mere advanceret så den flytter de 4 næste rækker med altså den flytter B, C, D og E ens? Endvidere. og så lige den en finte mere: Hvis nu der er et tal i celle b som ikke er i celle a så går det galt i den kode du har givet mig.... kan man ændre det således den bare laver en linie i A som er identisk med den i B? giver det mening?
Ps. hvis du ikke har tid til at hjælpe yderligere får du selvfølgelig dine points for denne.
Mange tak
mvh Lars

Jeg på det i morgen aften, der har jeg lidt bedre tid.

Super tak!

For lige at gøre det helt komplekst så kan det godt forekomme at der er nogle tal i b som ikke er i a. Derfor ville det være smart hvis den kunne rykke A en ned således der var tomt i den plads i a som er overfor b :-)
mvh Lars

lukket har løst det selv.