макрос добавить строки

[хочу_все_знать]

Здравствуйте, уважаемые спецы!!! Надеюсь на вашу помощь, не могу записать макрос "вставка определенных строк (к примеру 2:5)" в этот же лист,
только чтоб вставлялся по принципу вставить скопированные строки.
При записи макроса, он вставляет только в определенную строку или относительно, а мне нужно добавление строк со смещением, как если бы я скопировал строки и вставил где мне нужно.

[Serge 007]

А где нужно?
Как Вы это собираетесь указывать?

[хочу_все_знать]

На листе есть шапка (название материалов) строка 5-8, их нужно скопировать в тот же лист, но добавлять над выделенной строкой.
Указывать собираюсь комбинацией клавиш Ctr+Q.

[cheshiki1]

На листе есть шапка (название материалов) строка 5-8

У нас ни листа ни шапки. Файл приложите с описанием что куда согласно файла.

[хочу_все_знать]

Может я не правильно объясняю, извините 
Просто не охота постоянно копировать\вставить скопированные ячейки, хотелось бы автоматизировать процесс.

Вот пример бланка:

[cheshiki1]

в модуль книги

Код Выделить Развернуть

Private Sub Workbook_Open()
Application.OnKey "^q", "Макрос4" 'ctrl+q(значек^)
End Sub
в модуль

Код Выделить Развернуть

Sub Макрос4()
    Range(ActiveCell, ActiveCell.Offset(3, 0)).EntireRow.Insert
    Range("A5:G8").Copy
    Cells(ActiveCell.Row, 1).PasteSpecial
    Application.CutCopyMode = False
End Sub Как то так.

[хочу_все_знать]

Спасибо огромное, 5 лет мучился, неудобно спросить было.

[Hugo121]

Тысячи/миллионы живут и не мучаются... Потому что не знают про макросы
А по делу - ещё нужно бы

Код Выделить Развернуть

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "^q"
End Sub

Или даже при активации/деактивации книги производить эти процедуры.
Иначе и на других книгах будет пытаться сработать.