VBA formanty excel

Witam chciałabym się dowiedzieć co jest nie tak z moim kodem , pracuję w Excelu na formantach ActiveX
Ma mi to posłużyć do dodania nowego zamówienia. Formularz złóż zamówienie składa się z pól nazwa klienta i nazwa produktu (ComboBox) oraz z textboxa i spinbuttona do wyboru ilości.

Kod przycisku "Złóż zamówienie"

Private Sub CommandButton5_Click()
    Dim x, y As String
    x = Application.CountA(("Dane_klienci").Range("A:A"))
    y = Application.CountA(("Dane_produkty").Range("A:A"))
    Sheets("Dane_klienci").Activate
    Zamowienie.ComboBox1.RowSource = Range(Cells(2, 1), Cells(x, 2)).Address
    Sheets("Dane_produkty").Activate
    Zamowienie.ComboBox2.RowSource = Range(Cells(2, 1), Cells(y, 3)).Address
    Sheets("Interfejs").Activate
    Zamowienie.Show
End Sub

Kod całego formularza "Złóż zamówienie"

Private Sub CommandButton1_Click()
    Dim x As String
    x = Application.WorksheetFunction.CountA(Sheets("Dane_zamowienia").Range("A:A")) + 1
    If ComboBox1.Value = "" Or ComboBox2.Value = "" Or TextBox1.Text = "" Then
        MsgBox "Wypełnij wszystkie pola", vbOKOnly, "Błąd"
    Else
    Sheets("Dane_zamowienia").Activate
    Sheets("Dane_zamowienia").Unprotect
    If Cells(x - 1, 1).Value = Cells(1, 1).Value Then Cells(x, 1).Value = 1 Else Cells(x, 1).Value = Cells(x - 1, 1).Value + 1
    Cells(x, 2).Value = Zamowienie.ComboBox1.Value
    Cells(x, 3).Value = Application.VLookup(Cells(x, 2), Sheets("Dane_klienci").Columns("A:B"), 2, False)
    Cells(x, 4).Value = Zamowienie.ComboBox2.Value
    Cells(x, 5).Value = Application.VLookup(Cells(x, 4), Sheets("Dane_produkty").Columns("A:B"), 2, False)
    Cells(x, 6).Value = Application.VLookup(Cells(x, 4), Sheets("Dane_produkty").Columns("A:F"), 6, False)
    Cells(x, 7).Value = Zamowienie.TextBox1.Value
    Cells(x, 8).Value = Cells(x, 6).Value * Cells(x, 7).Value
    Sheets("Dane_zamowienia").Protect
    Sheets("Interfejs").Activate
    Zamowienie.Hide
    End If
End Sub

Private Sub CommandButton2_Click()
    Zamowienie.Hide
End Sub

Private Sub SpinButton1_Change()
    TextBox1.Text = SpinButton1.Value
End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub UserForm_Click()

End Sub

A co jest nie tak? Przecież bez szablonu nie ma tego nawet jak przetestować...