Makro läuft nicht richtig - Makrorecorder

Sub zeilenrunter()
' zeilenrunter Makro
' Makro am 28.08.2008 von name aufgezeichnet
' Tastenkombination: Strg+q
ActiveCell.Range("A1:I1").Select
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveCell.Range("A1:A3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.End(xlDown).Select
End Sub
Was soll es machen.
Ich habe einen Zeilenaufbau, beginnend in Zeile 1
Zeile 1 ist gefüllt
Zeile 2 leer
Zeile 3 leer
Zeile 4 ist gefüllt
Zeile 5 leer
Zeile 6 leer
Zele 7 leer
Zeile 8 gefüllt
Das Makro soll immer den Inhalt aus der gefüllten Zeile in die nächsten, darunterliegenden  _
Zeilen runterkopieren die bis an die nächste ausgefüllte Zeile heranreicht und dann zur nä _
chsten gefüllten Zeile springen.  Vom Bsp. oben ausgehend muss Zeile 1 nach Zeile 2 und 3 kopiert werden. Zeile 4 soll nach Zeilen 5,6 und 7 kopiert werden.
Das Makro füllt aber immer nur 2 Zeilen aus, da ich im Beispielfall während der  _
Makrorecorderaufnahme halt nur 2 Zeilen hatte.
Wer kann helfen? Mit VBA kann ich bisher nur mit Macrorecorder arbeiten, daher bitte ich um  _
einfache Erklärungen.
Danke
trebor-robert