VBA automatisch rijen kopieren en onderaan invoegen

Goedemiddag, ik heb een macro gemaakt voor het automatisch kopiëren en invoegen van drie (verborgen) rijen onder aan het schema. Echter onderaan gaat niet helemaal goed, de rijen worden nu op A15 ingevoegd. Dit staat ook zo in de macro, ik weet alleen niet hoe je dit veranderd zodanig dat de rijen altijd onderaan het schema komen te staan. Weet iemand hiervoor de juiste code?

Sub Macro1()
'
' Macro1 Macro
' project toevoegen
'

'
Rows("5:11").Select
Selection.EntireRow.Hidden = False
Rows("7:10").Select
Selection.Copy
Range("A15").Select
Selection.Insert Shift:=xlDown
Rows("7:10").Select
Selection.EntireRow.Hidden = True
End Sub

In de bijlage het voorbeeld bestand met de macro. Het is de bedoeling dat de verborgen rijen 7-9 gekopieerd worden inclusief formules.

Bv

Hartelijk dank voor de snelle reactie, werkt perfect. Moet alleen zorgen dat er niet nog een "gevulde" cel onder staat merk ik, moet echt leeg zijn.

Is niet perse noodzakelijk alleen weet ik niet wat je waar invult.

De basis van het zoeken van de laatste niet lege regel staat hier
Met offset(4) ga je dan 4 rijen naar beneden en is natuurlijk geheel aan te passen naar eigen wensen.

Anders,

hartelijk dank, begin het te begrijpen
In ieder geval werkt het nu zoals bedoeld!