Private Sub CommandButton1_Click()
Range("B11") = "1. Reason for the Job:"
Dim vntTextArray As Variant
Dim zaehler As Integer
Dim c As Range, k As Range
vntTextArray = Split(TextBox1.Text, vbCrLf)
Range("B11") = "1. Reason for the Job:"
For zaehler = 2 To 10
If Range("B" & zaehler).MergeCells Then
Set c = Range("B" & zaehler)
c.Value = ""
Range(c.Address).MergeCells = False
End If
Next zaehler
For zaehler = 2 To UBound(vntTextArray) + 1
Set c = Range("B" & zaehler)
Set c = Range(c, c.Offset(0, 8))
c.MergeCells = True
Next zaehler
zaehler = UBound(vntTextArray) + 1
Range("B1:B" & zaehler).Value = Application.Transpose(vntTextArray)
End Sub