Code in Code integrieren

Private Sub CommandButton2_Click()
Dim inta As Integer
Set frm = UserForm2
Sheets("Tabelle1").Activate
With frm
Cells(223, 1).Value = .TextBox1.Value
Cells(223, 2).Value = .TextBox2.Value
Cells(223, 3).Value = .TextBox3.Value
Cells(214, 2).Value = .TextBox4.Value
End With
Sheets("Kosten nach Gewerken").Visible = True
Sheets("Kosten nach Gewerken").Select
For Each TextBox In UserForm2.Controls
If TextBox = "" Then
MsgBox "Es sind ein oder mehrere Felder nicht ausgefüllt!", vbOKOnly + vbCritical, " _
Eingabefehler"
Exit Sub
ElseIf TextBox = "0" Then
MsgBox "Nette Idee aber leider NEIN, denn durch 0 kann man nicht teilen!", vbOKOnly +  _
vbCritical, "Eingabefehler"
Exit Sub
End If
Next TextBox
Sheets("Tabelle1").Visible = True
Sheets("Tabelle1").Select
If Cells(210, 2) = "0" Then
Sheets("Tabelle1").Visible = xlVeryHidden
Sheets("Kosten nach Gewerken").Activate
MsgBox "Es sind noch keine Kosten in der KG 300/400 erfasst!", vbOKOnly + vbCritical, " _
Eingabefehler"
UserForm2.Hide
Else
UserForm2.Hide
Sheets("Kosten nach Gewerken").Activate
Sheets("Tabelle1").Visible = xlVeryHidden
inta = MsgBox("Die Daten wurden in die Datenbank übernommen und stehen bei der nächsten  _
Berechnung zu Verfügung!", vbOKOnly + vbInformation, "Erfolgreiche Eingabe")
End If
End Sub

Und dann habe ich noch den zweiten Code den mir "Chaos" in diesem Forum geschrieben hat und der auch funktioniert. An dieser Stelle noch mals vielen Dank für deine Hilfe.
Ich versuche jetzt den zweiten Code ausführen zu lassen wenn im ersten alle voraussetzungen erfüllt sind und bevor die Userform2 geschlossen wird.

Sub test()
Dim zeile As Integer, s As Integer, a As Integer, b As Integer
Dim t As String
Application.ScreenUpdating = False 'Auschalten Bildschirmaktualisierung
If Range("A6").Value = "1" Then ' Abfrage, ob A4 = 1
If Range("B45").Value = "" Then ' Schauen, ob letzte zeile in diesem Bereich frei
If Range("B14").Value  "" Then
For zeile = 14 To 45 ' bereich für 1 in der  (Zeile 10 - 45)
If Cells(zeile, 6).Value  "" Then ' Abfrage, ob Zellen leer sind
s = Cells(zeile, 6).Row ' zellenindex
Cells(zeile, 11).Value = Cells(zeile - 1, 11).Value + Cells(zeile, 6).Value '  _
Summenbildung wert K(zeile -1) + Wert in F(zeile)
Cells(zeile, 12).Value = Cells(zeile - 1, 12).Value + Cells(zeile, 7).Value ' u.s.w für  _
die anderen werte nebendran
Cells(zeile, 13).Value = Cells(zeile - 1, 13).Value + Cells(zeile, 8).Value
Cells(zeile, 14).Value = Cells(zeile - 1, 14).Value + Cells(zeile, 9).Value
Cells(zeile, 15).Value = Cells(zeile - 1, 15).Value + Cells(zeile, 10).Value
End If
Next zeile
s = s + 1 ' erste freie Zelle , zeilen index
Range("B214:J214").Copy Destination:=Range("B" & s) ' kopieren von B214:j214 nach erste freie  _
Zelle in B
Cells(s, 11).Value = Cells(s - 1, 11).Value + Cells(s, 6).Value ' summenbildung für freie zeile, _
analog zu oben
t = Cells(s, 11).Value ' Variablenzuweisung
End If
End If
End If
End Sub

Also wenn mir jemand bei der Lösung helfen könnte wäre ich ihm zu Dank verplichtet.
Mit freundlichen Grüßen
Thomas Wagner