Excel VBA Code für UserForm umschreiben

Private Sub CommandButton1_Click()
Tabelle1.Range("J4").Value = Date
Dim sTxt As String
sTxt = InputBox("Bitte die Kollektion der verschickten Muster angeben.")
If sTxt = "" Then Exit Sub
'MsgBox sTx
Range("B13").Value = sTxt
Dim sTx As String
sTx = InputBox("Bitte den Showroom der die Retoure verschickt angeben.")
If sTx = "" Then Exit Sub
'MsgBox sTx
Range("B7").Value = sTx
Dim sT As String
sT = InputBox("Bitte den Ansprechpartner der Retoure angeben.")
If sT = "" Then Exit Sub
'MsgBox sT
Range("J10").Value = sT
Dim s As String
s = InputBox("Bitte das Brand der Retoure angeben.")
If s = "" Then Exit Sub
'MsgBox s
Range("J7").Value = s
Dim sa As String
sa = InputBox("Wie viele Kartons werden insgesamt verschickt?")
If sa = "" Then Exit Sub
'MsgBox s
Range("B10").Value = sa
Dim Kopien As Variant
If MsgBox("Werden Textil Kartons verschickt?", vbYesNo, "Drucken") = vbYes Then
Do
Tabelle1.Range("J13").Value = "APP"
Kopien = InputBox("Wie viele Textil Kartons werden verschickt?", "Drucken", 1)
If StrPtr(Kopien) = 0 Then Exit Sub
If IsNumeric(Kopien) Then Exit Do
MsgBox "Bitte eine Zahl eingeben!", vbExclamation, "Hinweis"
Loop
ActiveSheet.PrintOut From:=1, To:=1, Copies:=CLng(Kopien)
End If
Dim Kopie As Variant
If MsgBox("Werden Schuh Kartons verschickt?", vbYesNo, "Drucken") = vbYes Then
Do
Tabelle1.Range("J13").Value = "FTW"
Kopie = InputBox("Wie viel Schuh Kartons werden verschickt?", "Drucken", 1)
If StrPtr(Kopie) = 0 Then Exit Sub
If IsNumeric(Kopie) Then Exit Do
MsgBox "Bitte eine Zahl eingeben!", vbExclamation, "Hinweis"
Loop
ActiveSheet.PrintOut From:=1, To:=1, Copies:=CLng(Kopie)
End If
Dim Kopi As Variant
If MsgBox("Werden Hardware Kartons verschickt?", vbYesNo, "Drucken") = vbYes Then
Do
Tabelle1.Range("J13").Value = "HDW"
Kopi = InputBox("Wie viel Hardware Kartons verschickt?", "Drucken", 1)
If StrPtr(Kopi) = 0 Then Exit Sub
If IsNumeric(Kopi) Then Exit Do
MsgBox "Bitte eine Zahl eingeben!", vbExclamation, "Hinweis"
Loop
ActiveSheet.PrintOut From:=1, To:=1, Copies:=CLng(Kopi)
End If
End Sub

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
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