вставка ячеек в Excell со сдвигом вниз

[иванлеон]

Здравствуйте!
Есть рабочий код копирования ячеек Excel открытого документа в Delphi.
A3:G6 копируется в A9:G12.

var
Excel:Variant;
Destrange:OLEVariant;
.....

Excel:=CreateOleObject('Excel.Application');

Excel.Workbooks.Open('doc.xlt');


DestRange := Excel.Range['A9', 'G12'];
Excel.Range['A3', 'G6'].Copy(DestRange);

Проблема в том, что надо вставлять эти ячейки со сдвигом вниз именно программно. Как это делается в Excell показано на рисунке.



Не понимаю, как это сделать?

[иванлеон]

Да, можно тупо навставлять пустых ячеек, а потом скопировать туда. Код выше.

  Excel:=CreateOleObject('Excel.Application');
    Excel.WorkBooks.Add(EmptyParam);
    Excel.Visible:=true;
    Excel.Range['A1:F5'].Value:='blablabla';
    Excel.Range['B1:B2'].Insert(xlDown);// сдвиг вниз
    Excel.Range['D4:E4'].Insert(xlToRight);

Не знаю, может есть ещё варианты?