下标越界！！（续）将多张工作表中合同到期的数据检索到另一张sheet中

一张工作簿中有多张工作表，这些工作表中有许多合同（包括签订日期、到期日期等）。现在想在合同到期前2个月提醒，将即将到期的合同在另一张工作表中显示出来。
这个功能怎么实现呢？

--这个功能使用了一个宏，是有个好心的版主提供的，但是用到现实的环境测试显示“下标越界”，不知道谁能帮我究个错啊？
我实在找不到！谢谢了！！

附件

合同test.rar(10.66 KB)

2011-8-10 15:06, 下载次数: 7

作者: lingling800   发布时间: 2011-08-10

作者: liimtj   发布时间: 2011-08-10

作者: 蓝桥玄霜   发布时间: 2011-08-10

麻烦帮我看看哪里错了？

附件

合同test.rar(15.43 KB)

2011-8-10 15:59, 下载次数: 0

作者: lingling800   发布时间: 2011-08-10