excel2007做一个生产通知单

各位大虾们好,我现在想要 的结果是"

1.先把上面3行9个单元格里的内容输入进去,

2.然后点一下按钮1,

3.sheet2里的最后有内容的那行下面插入一行空白行,把sheet1里的第1行3个单元格里的内容自动复制到sheet2里相对应的3个单元格里,


4.sheet3里的最后有内容的那行下面插入一行空白行,把sheet1里的第2行3个单元格里的内容自动复制到sheet3里相对应的3个单元格里,



5.sheet4里的最后有内容的那行下面插入一行空白行,把sheet1里的第3行3个单元格里的内容自动复制到sheet4里相对应的3个单元格里,

6.最后把sheet1里的前2行内容清空,后一行内容不清空,
因为最后一行的内容是通过公式得到的,
小弟急用,请帮帮忙

我装了2007因为超级不喜欢其工具条就要占用半个屏幕，SO，我把他卸了。

问题不是很清楚，试试看这个
Sub test()
Dim i, y, m
i = Sheet2.Range("A65536").End(xlUp).Row
y = Sheet3.Range("A65536").End(xlUp).Row
m = Sheet4.Range("A65536").End(xlUp).Row
Sheet2.Range("A" & i + 1) = Sheet1.[B2]
Sheet2.Range("B" & i + 1) = Sheet1.[D2]
Sheet2.Range("C" & i + 1) = Sheet1.[F2]
Sheet3.Range("A" & i + 1) = Sheet1.[B3]
Sheet3.Range("B" & i + 1) = Sheet1.[D3]
Sheet3.Range("C" & i + 1) = Sheet1.[F3]
Sheet4.Range("A" & i + 1) = Sheet1.[B4]
Sheet4.Range("B" & i + 1) = Sheet1.[D4]
Sheet4.Range("C" & i + 1) = Sheet1.[F4]
Sheet1.[A2] = Sheet1.[A4]
Sheet1.[B2] = Sheet1.[B4]
Sheet1.[C2] = Sheet1.[C4]
Sheet1.[D2] = Sheet1.[D4]
Sheet1.[E2] = Sheet1.[E4]
Sheet1.[F2] = Sheet1.[F4]
Range("A3:F4").Value = ""
End Sub

通用代码参考：

★利用单元颜色动态判断记录方式★        http://club.excelhome.net/thread-484976-1-1.html