如何实现从sheet1剪切符合条件的行到sheet2

sheet1
任务编号  名称  实际完成时间  预计完成时间
1001        AAA                         2011-7-1
1002        BBB   2011-6-30      2011-7-1
1003        CCC                        2011-7-1
1004        DDD   2011-7-1       2011-7-1
1005        EEE                         2011-7-1
◆点击控件实现 将已完成的任务剪切到sheet2中；
sheet2
任务编号  名称  实际完成时间  预计完成时间
1002        BBB  2011-6-30       2011-7-1
1004        DDD  2011-7-1        2011-7-1
--------------------------------------------------------------------
sheet1
任务编号  名称  实际完成时间  预计完成时间
1001        AAA   2011-7-2        2011-7-1
1003        CCC                        2011-7-1
1005        EEE                         2011-7-1
◆sheet1中有新的任务完成，再次点击控件 将新的已完成的任务剪切到sheet2中上次剪切数据的后面。
sheet2
任务编号  名称  实际完成时间  预计完成时间
1002        BBB   2011-6-30       2011-7-1
1004        DDD  2011-7-1         2011-7-1
1001        AAA   2011-7-2         2011-7-1

新手请教，拜托各位Excel达人了，多谢啦！

[ 本帖最后由 cobnet 于 2011-8-5 15:32 编辑 ]

将工作簿压缩后发过来看看没有附件不好解决问题

剪切后  源表是留空白行   还是排好序

[ 本帖最后由 yangrongguan 于 2011-8-5 15:46 编辑 ]

从sheet1中将填写了实际完成时间的行复制到sheet2中，
再将sheet1中填写了实际完成时间的行删了就可以了，其他的都不变。

[ 本帖最后由 cobnet 于 2011-8-5 15:48 编辑 ]

..................

非常感谢，但是运行时提示下一行有错。

ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear

运行时错误'438'
对象不支持该属性或方法