關於VBA設計簡易表單寫入EXCEL儲存格發生錯誤問題

表單home內容:-----------------------------------------------
Private Sub CBadd_Click()
'1.新增資料-製作按鈕的動作
'抓A1為底往下算的到底的列數+1 為輸入的資料格
r = Range("A2").End(xlDown).Row + 1
'把資料輸入到EXCEL儲存格內
Cells(r, "A") = CBtype.Text
Cells(r, "B") = TBacc.Text
Cells(r, "C") = TBPW.Text
Cells(r, "D") = TBsafe.Text
Cells(r, "E") = TBPS1.Text
Cells(r, "F") = TBPS2.Text
'2 移動游標
Cells(r, "A").Select
'3清除資料
'ComboBox1.Text = ""
TBPW.Text = ""
TBacc.Text = ""
TBsafe.Text = ""
TBPS1.Text = ""
TBPS2.Text = ""
End Sub
-------------------------------------------
表單啟動時載入Z欄資料到CB1內提供選擇----------------------
Private Sub UserForm_Activate()
'設定CBOX內容 在清單啟用時LOADING類別內容 從Z欄載入資料
For a = 2 To Range("Z1").End(xlDown).Row
'設定啟動表單後把工作表DATA的選項載入到CB1內
CBtype.AddItem Cells(a, "Z")
Next
End Sub
------------------------------------------------------------
模組內容:

Public Sub 開啟表單()
home.Show
End Sub
----------------------------------------------------------------
小弟設計完後只要下拉點下
開啟表單>帳號類別>選擇好之後 點下 建立檔案 就會出現定義錯誤
看了好幾次找不出方式
是否是哪邊遺漏了 還請諸位大佬幫個忙 謝謝您