VBA til at flytte data

Hej Eksperten

Jeg har en række data, hvor jeg gerne vil have Excel til at flytte hver anden celle op, så den står på linje med den lige over.

Jeg kan få den til at gøre det med de første to, men hvordan får jeg den til at fortsætte.


Sub Flyt
    Range("A2").Select
    Selection.Cut Destination:=Range("B1")
End Sub


Resultatet bliver, at værdien i A1 og A2 kommer til at stå i A1 og B1.
Nu skal Excel så fortsætte videre til A4 og flytte værdien fra den celle op i B3, så celle A3 og B3 står i samme række.

Når alt det så er gjort, så har jeg et Call til en VBA som sletter de tomme rækker, men den er som udgangspunkt løst.