自动编号问题？求高手指教。

zhj0709

Private Sub Workbook_BeforePrint(Cancel As Boolean)
confirm = MsgBox("自动更新单据编号？", vbYesNoCancel)
If confirm = 2 Then Cancel = True: Exit Sub
If confirm = 6 Then
With Sheets("提货单").Range("F3")
.Value = "HL" & Format(Date, "yyyymm") & Format(Val(Right(.Value, 3)) + 1, "000")
   End With
   End If
End Sub

如何实现上面代码中绿色部分按照不同商品品种编码规则进行连续编号。
商品编码规则：第三至第八位为年份及月份代码，如：201604----------2016年4月
水泥品种等级代码规则：
X1表示常规碱水泥或低碱水泥：
N-----常规碱    D------低碱    T------铁标
X2表示水泥品种，取各品种水泥代号的后半部分：
O-----普通硅酸盐水泥（代号P.O）
C-----复合硅酸盐水泥（代号P.C）
X3表示强度等级，取国标中强度等级的第一个数字
如：4-----42.5强度等级    3-----32.5强度等级
第十二位包装方式代码规则： 1-------散装水泥      2-------袋装水泥
最后四位为连续编码。