VBA自定义向Combobox添加新值

Question

我的VBA代码根据工作表中的范围选择两个类别：

Private Sub Workbook_Open()
   Application.WindowState = xlMaximized
   Sheets(1).Activate
   MsgBox "Welcome to the Work Tracker " & vbNewLine & vbNewLine & "Developed by ME"

   frmItemList.cmbCategory.List = Sheets("cmb").Range("A1:A2").Value
   frmItemList.cmbMonth.List = Sheets("cmb").Range("B1:B12").Value
   frmItemList.cmbDay.List = Sheets("cmb").Range("C1:C31").Value
   frmItemList.cmbYear.List = Sheets("cmb").Range("D1:D11").Value 
End Sub

我想采用组合框（cmbCategory），并且当人们添加他们自己的类别时，它会添加到单元格A3，并且范围会动态增加以包含下一个值。

谢谢，