Mit einer Schleife zu lösen?

[Hajopay]

Hallo Liebe Leute,

Ich habe vor einen Bereich zu kopieren.
Ich habe ein Makro mit Hand aufgezeichnet.
Kurze Beschreibung der Vorgehensweise:
            Ich markiere einen Bereich
            Fahre mit dem Cursor rechts unten auf das Kästchen
            Ziehe es einmal nach rechts und er kopiert und zählt weiter
Und das Füge ich jetzt in einen Button ein
Wenn ich jetzt erneut drücke dann erscheint ein fehler weil die Zellen daneben natürlich schon voll sind.
Hier der Code:

Range("C2:F31").Select
    Selection.AutoFill Destination:=Range("C2:J31"), Type:=xlFillDefault
    Range("C2:J31").Select
    Range("G2:J31").Select
    Selection.AutoFill Destination:=Range("G2:N31"), Type:=xlFillDefault
    Range("G2:N31").Select

Ich hatte den doppelt durch geführt damit man sieht was ich vor habe.
Ich hätte gerne das er automatisch immer weiter kopiert, beim drücken des Buttons.

Jemand eine Idee