VBA - Połączyć tekst z kilku komórek, podzielić na linie.

Porządkuję pulpit na którym został plik brudnopis z makrem... Dla zabawy usiłowałem stworzyć funkcję, która miała z kilku komórek połączyć tekst a następnie wstawić zamiast spacji znaki nowej linii:

Function SpacesToRows(myString As Range) As String
    SpacesToRows = Replace(Join(Application.Transpose(myString.Value), " "), " ", vbCrLf)
End Function

Doczytałem gdzieś w sieci (pewnie Stackoverflow), że po złączeniu "Join" trzeba dokonać transpozycji. Zadanie na pojutrze... jak podzielić linie: co x liter/wyrazów, w zależności od szerokości komórki, zresetować wszyskie podziały stron przed ponownym podziałem? CDN jak czas pozwoli.