Copiando e Colando no Excel

PROCEDURE copia-linha.
/*insere uma linha na aba 1*/
chWorkSheet:Range("A" + STRING(i-linha) + ":R" + STRING(i-linha)):INSERT.
RELEASE OBJECT chWorksheet.
/*Seleciona a aba 2*/
chWorkSheet = chExcelApplication:Sheets:ITEM(2).
chWorkSheet:SELECT().
/*Posiciona e copia o conteúdo da coluna A linha 1 até a coluna R linha 1*/
chWorkSheet:Range("A1" + ":R1") :SELECT.
chWorkSheet:Range("A1" + ":R1") :COPY.
RELEASE OBJECT chWorksheet.
/*Seleciona a aba 1 novamente*/
chWorkSheet = chExcelApplication:Sheets:ITEM(1).
chWorkSheet:SELECT().
/*Cola o conteúdo selecionado na linha inserida no inicio*/
chWorkSheet:Range("A" + STRING(i-linha)):SELECT.
chWorkSheet:PASTE.
chExcelApplication:Cutcopymode = FALSE.
END.