Office 2010: VBA /Makro- Kopierte Zeilen immer am Fuss der Tabelle einfügen

[Frankman]

Hallo,
ich bin neu hier, mein Name ist Frank.

Leider komme ich alleine nicht weiter und hoffe hier auf Hilfe.
Ich arbeite gerade an einer Mappe und möchte bestimmte Zeilen per Schaltfläche immer wieder einfügen.
Zur Zeit hänge ich hier:

Sub WeitereFlächen()
'
' WeitereFlächen Makro
' Weitere Flächenberechnung einfügen
'

'
    Rows("18:24").Select
    Selection.Copy
    Rows("25:25").Select
    Selection.Insert Shift:=xlDown
End Sub

Weitere Flächen heisst das hier nur, da es sich um Zeilen mit Möglichkeiten der Flächenberechnung handelt.Also verschiedene Flächenformels hinterlegt sind.
Ich kopiere also die Zeilen 18-24 - das ist auch richtig, diese Zeilen werden dann aber immer an der selben Stelle wieder eingefügt.
Ich möchte aber das die kopierten Zeilen immer am Ende eingefügt werden. Also wenn ich die Zeilen eingefügt habe, wird die Tabelle nach unter größer, beim nächsten Einfügen müsste das Ganze 7 Zeilen tiefer eingefügt werden, dann wieder 7 Zeilen tiefer usw.
Ich hoffe ich bin auf dem richtigen Weg und ihr habe mich verständlich ausgedrückt.

[StefKe]

Hallo Frank, stelle eine Beispielmappe hier ein...ist einfacher für alle...

Stefan

[gmg-cc]

Moin,
du musst die letzte Zeile mit Daten bestimmen, 1 dazu rechen und dort die Daten einfügen.
Hier findest du mehrere Ansätze: http://www.excel-ist-sexy.de/letzte-zeile-spalte-finden/