Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a$, i#, nach#, konch#, ch#, param#, st_par#, koef#
st_par = 8 'Номер правого столбца формы, тот столбец, который находится слева от столбца с параметром
koef = 0.17 'Для увеличения кол-ва символов в строке, для разных шрифтов и их размеров
On Error Resume Next
param = Cells(Target.Row, st_par + 1)
If param = 0 Then Exit Sub
Application.EnableEvents = False
a = Target.Value
If Int(Target.MergeArea.Width * koef) < Len(a) Then
         nach = 1: ch = 0: i = 1
         konch = InStr(Int(Cells(Target.Row, st_par).MergeArea.Width * koef), a, " ")
         Do While ch <= 1
             Cells(Target.Row + i * param - param, Target.Column).MergeArea = Mid(a, nach, konch)
             nach = nach + konch
             konch = InStr(nach + Int(Cells(Target.Row + i * param, st_par).MergeArea.Width * koef), a & " ", " ") - nach
             If konch <= 0 Then konch = Int(Cells(Target.Row + i * param, st_par).MergeArea.Width * koef): ch = ch + 1
             i = i + 1
         Loop
End If
Application.EnableEvents = True
End Sub