Text über zwei Zellen anzeigen

Guten Morgen zusammen,
mir stellt sich das Problem, dass Text über zwei Zellen angezeigt werden soll, ohne dass die Zellen miteinander verbunden werden (da mehrere User gleichzeitig an der Mappe arbeiten sollen, funktioniert ja MergeCells nicht).
Wie kann ich das über VBA lösen. Ich habe bereits den Code für die Länge des Textes, sodass er in die zwei Zellen passt. Allerdings erscheint er immer nur in der ersten Zelle, schreibt also nichts in die Zweite.
Mein Code sieht bisher so aus (auszugsweise):

Ganzes2 = wks_Art.Cells(rng_Row.Row, 7) & " "
If b < 54 Then
.Range(.Cells(lz2, 1), .Cells(lz2, 2)) = wks_Art.Cells(rng_Row.Row, 7)
Else
For a = 1 To Len(Ganzes2)
For c = b To 1 Step -1
If Mid(Ganzes2, c, 1) = " " Then
Teil2 = Left(Ganzes2, c)
.Cells(lz2, 1) = .Cells(lz2, 1) & Teil2 & Chr(10)
Ganzes2 = Mid(Ganzes2, c + 1)
Exit For
End If
Next
Next
End If