两个数据表sheet1和sheet2，sheet1中有6列数据，当第6列表格中输入数据时，在sheet2的前面5列中输入sheet1的前5列数据，并保持同一行，当sheet1第六列无数据时，sheet2中则不复制sheet1的前5列数据；两个表格的第四列数据都是一样的日期，在sheet2第6列数据是第5列数据的函数关系式“=X+5*365-30”X为第5列某单元格，请问用VBE该如何编写这个程序。
Sheet1
代码 名称 用户 生产日期 人员 发行
WT-14-031 水果绿 某汽车厂商 2014-5-23 张某
Sheet2
代码 名称 用户 生产日期 人员 过期日期
WT-14-031 水果绿 某汽车厂商 2014-5-23 张某