Как вставить диапазон в конкретную строку листа Excel со сдвигом вниз имеющихся? - VBA

Формулировка задачи:

Как вставить диапазон в конкретную строку листа

Excel

со сдвигом вниз, того что там находилось? Если я выполню

ThisWorkbook.Worksheets("Лист1").Range("MyRange").Copy Range("A17")

- это затирающее копирование. Мне нужно, чтоб то, что имеется в 17 строке уехало вниз на то количество рядов, сколько имеется в “MyRange”.

MSO 2003, WinXP_sp2

Решение задачи: «Как вставить диапазон в конкретную строку листа Excel со сдвигом вниз имеющихся?»

textual
                            Листинг программы 
                        
                            ThisWorkbook.Worksheets("Лист1").Range("MyRange").Copy
ThisWorkbook.Worksheets("Лист1").Range("A17").Insert Shift:=xlDown