Office: VBA mehrere Zeilen einfügen

Hallo zusammen,

ich habe eine relativ große Tabelle, in die mehrere Zeilen eingefügt werden sollen. An diese Stelle sollen dann aus einem anderen Tabellenblatt Daten kopiert und an die freie Stelle eingefügt werden.

Bei mir sieht das ganze so aus:

'aktiviert Tabelle BK-Dauer
ThisWorkbook.Worksheets("BK-Dauer").Activate

'geht eine Zelle unter die aktive Zelle
ActiveCell.Offset(1, 0).Select

'fügt an der aktuellen Position 7 Zeilen ein
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert

'aktiviert Tabelle Umbuchung
ThisWorkbook.Worksheets("Umbuchung").Activate

'kopiert die Umbuchungen
Range("A5:CA11").Copy


'aktiviert Tabelle BK-Dauer
ThisWorkbook.Worksheets("BK-Dauer").Activate

'fügt die Umbuchungen ein
ActiveSheet.Paste

(bitte nicht lachen, ich fange gerade erst an mit VBA).

Nun zu meinen Problem: Das Einfügen der 7 Zeilen dauert sehr lange. Momentan ist es so, dass ich eigentlich schneller bin, wenn ich die Zeilen selber einfüge und die Daten reinkopiere, als wenn es das Makro macht. Ich hatte mir das eigentlich andersrum vorgestellt. Gibt es eine Möglichkeit den "7-Zeilen-einfügen-Schritt" schneller zu machen?

Beispielsweise: gehe unter die aktive Zelle, markiere 7 Zeilen und fügen Zeilen ein (so wie man es händisch machen würde).

Ich bin mir sicher, Ihr könnt mir da helfen :-)

LG Micha