Fehler beim kompilieren

Private Sub CommandButton1_Click()
With Worksheets("Tabelle1")
If Me.TextBox4 = "" Then
.Range("B4") = ("")
Else
.Range("B4") = Me.TextBox4.Value
End If
If Me.TextBox8 = "" Then
.Range("J4") = ("")
Else
.Range("J4") = Me.TextBox8.Value
End If
If Me.ComboBox1 = "" Then
.Range("B7") = ("")
Else
.Range("B7") = Me.ComboBox1.Value
End If
If Me.ComboBox3 = "" Then
.Range("J7") = ("")
Else
.Range("J7") = Me.ComboBox3.Value
End If
If Me.TextBox1 = "" Then
.Range("B10") = ("")
Else
.Range("B10") = Me.TextBox1.Value
End If
If Me.TextBox2 = "" Then
.Range("J10") = ("")
Else
.Range("J10") = Me.TextBox2.Value
End If
If Me.TextBox3 = "" Then
.Range("B13") = ("")
Else
.Range("B13") = Me.TextBox3.Value
End If
If CheckBox1.Value = True Then
Tabelle1.Range("J13") = "APP"
Else
Tabelle1.Range("J13") = ""
End If
If CheckBox1.Value = True Then
If IsNumeric(Me.TextBox5.Value) Then
.PrintOut Copies:=Me.TextBox5.Value
Else
MsgBox ("Bitte nur Ziffern bei Kartonanzahl verwenden!")
End If
If CheckBox3.Value = True Then
Tabelle1.Range("J13") = "FTW"
Else
Tabelle1.Range("J13") = ""
End If
If IsNumeric(Me.TextBox7.Value) Then
.PrintOut Copies:=Me.TextBox7.Value
Else
MsgBox ("Bitte nur Ziffern bei Kartonanzahl verwenden!")
End If
If CheckBox2.Value = True Then
Tabelle1.Range("J13") = "HDW"
Else
Tabelle1.Range("J13") = ""
End If
If IsNumeric(Me.TextBox6.Value) Then
.PrintOut Copies:=Me.TextBox6.Value
Else
MsgBox ("Bitte nur Ziffern bei Kartonanzahl verwenden!")
End If
End With
End Sub

Private Sub CommandButton2_Click()

Unload Me

End Sub

Private Sub userform_activate()

TextBox8.Value = Date

End Sub

Private Sub UserForm_initialize()

ComboBox1.AddItem "SR NBG"

ComboBox1.AddItem "SR Berlin"

ComboBox1.AddItem "SR Mainhausen"

ComboBox1.AddItem "SR Heilbronn"

ComboBox1.AddItem "SR Bonn"

ComboBox1.AddItem "SR Hannover"

ComboBox1.AddItem "Outdoor Experten"

ComboBox1.AddItem "Outdoor Agenturen"

ComboBox1.AddItem "Running Experten"

ComboBox1.AddItem "GTM HZO"

ComboBox1.AddItem "KAM HZO"

ComboBox1.AddItem "SMM"

ComboBox1.AddItem "Siemes"

ComboBox1.AddItem "Teamsport11"

ComboBox1.AddItem "Zalando"

ComboBox3.AddItem "Adidas"

ComboBox3.AddItem "Reebok"

End Sub