Jede zweite Zeile eine neue einfügen Teil 2

wie schon bei meiner Frage weiter unten, habe ich da jetzt schon selbst ein bissl herumprobiert.
Also bei meiner Tabelle muß zwischen jede "Daten"-Zeile automatisch (durch Makro oder Steuerelement-Button) eine leere Zeile eingefügt werden.

Geht es evtl auf diese Art?:

Sub zweite_Zeile()
Dim X As Integer
'Es soll von der 5. Zeile angefangen werden und bis zur 1000ten
For X = 5 To 1000
Range("AX").Select <===="AX" ist garantiert verkehrt
Selection.EntireRow.Insert
X = X + 2
Next
End Sub

Vielen Dank für Euren Tip.

Vielleicht hat ja auch einer ne Idee für meine Frage weiter unten.

ciao Sebastian