请求编写一段能够实现序号的VBA代码

在Excel工作表中，当C列有数据输入时，则A列相应的单元格序号。
注意：C列的数据，可能是将数据每次输入或复制一个单元格，可能是将数据每次复制进去两个以上的单元格。
A列显示的代码规律如下：
第一码：
如果当前工作薄的名称前三个汉字是“生产部”，则序号的第一码是“1”；
如果当前工作薄的名称前三个汉字是“品保部”，则序号的第一码是“2”；
如果当前工作薄的名称前三个汉字是“技术部”，则序号的第一码是“3”；
如果当前工作薄的名称前三个汉字是“营销部”，则序号的第一码是“4”；
如果当前工作薄的名称前三个汉字是“资材部”，则序号的第一码是“5”；
如果当前工作薄的名称前三个汉字是“管理部”，则序号的第一码是“6”；
如果当前工作薄的名称前三个汉字是“财务部”，则序号的第一码是“7”；
如果当前工作薄的名称前三个汉字是“办事处”，则序号的第一码是“8”；
如果当前工作薄的名称前三个汉字是“经理室”，则序号的第一码是“9”；

第二码：
等于当前工作薄名称的最后一位阿拉伯数字；

第三、四、五、六码：
0001--9999
举例说明，如附件：
当C5输入或复制进去数据时，则A5显示110001，
当C6输入或复制进去数据时，则A6显示110002，
当C10输入或复制进去数据时，则A10显示110003，
当C7、C8、C9一次性复制进去数据时，则
相应的A7显示110004
相应的A8显示110005
相应的A9显示110006
注意：1.序号的后4位以C列数据出现的先后次序而依序递增，与C列本身的顺序无关
2.当C列的数据删除时，A列相应单元格的序号也就自动消失。
以上，恳求高手们帮忙解决。
很早以前，有一位高手帮我写过如下的代码，用在当时的文件中很好用，先放在这了，可作参考。
Private Sub Worksheet_Change(ByVal Target As Range)
m = Format("ST-&q

编写vb实现*.wma文件的播放? VB编程里面，怎么编写才能实现这样的功能！ 如何编写一个 能够传送文件 的 VB程序 VB 如何实现此功能？ 关于菜单的 高分请求 如何用VB实现一段用户登陆验证的代码! 用VB 6编写一段简单代码 VB编写的软件 VB的编写 编写一个程序，能够实现任意个整的排序． 用VB编写的多媒体播放器，如何实现在线播放功能？