[Poleax]

void copyAndInsertBlock(str _bookMark, int _workSheet = 1)
{  #define.xlShiftDown(-4121)
    COM         comRange, comRange1, comR;
    int            rowsNumber, colsNumber;
    str s;
    ;

    if (! m_comDocument)
        throw error(strFmt("@DIS6401", this.getApplicationName()));

    comRange = this.findRange(_bookMark, _workSheet);
    if (! comRange)
    {
        return;
    }

    rowsNumber = any2int(COM::createFromObject( comRange.Rows() ).Count());

 //  comR=comRange.MergeArea();
//s=comRange.MergeArea.Address;

    comRange.Insert( #xlShiftDown ); 

    comRange1 = comRange.Offset(-rowsNumber);
/*
if (comRange.MergeCells())
{
    comRange1 = comRange.Range(_bookMark);
    comRange1 = comRange.MergeArea();
}
*/
    comRange.Copy(comRange1);
}

запутался с этим объединением..