excel的复制、粘贴问题(100分)

我的程序如下：
try
ExcelApplication1.Connect;//打开Excel
Except
MessageDlg('Excel没有被安装！',mtError, [mbOk], 0);
Abort;
End;
ExcelApplication1.Visible[0] := true; //显示当前窗口
Excelapplication1.Workbooks.Open(pchar(dest),
null,null,null,null,null,null,null,null,null,null,null,null,0);//打开指定的EXCEL 文件
Excelworkbook1.Connectto(ExcelApplication1.workbooks[1]);
Excelworksheet1.Connectto(Excelworkbook1.sheets[1] as _worksheet);
Excelworksheet1.cells.Item[6,2] := datetostr(dtp.Date);
Excelworksheet1.Cells.Item[6,5] := txtckdh.Text;
Excelworksheet1.cells.Item[6,7] := txtjzxh.Text;
　Excelworksheet1.Range[Excelworksheet1.cells.Item[6,1],Excelworksheet1.cells.Item[6,16]].Copy;
现在我要实现对上面这条记录进行复制、粘贴，用到COPY、PasteSpecial，却实现不了，请大家指点

...select
...selection.copy
select 一个单元格

selection.paste

to jsxjd:
能否说清楚点，
　我刚才试了一下，好像不行，谢谢

或者谁有这方面的资料，介绍一下

多人接受答案了。