Sub puma_q()
w = Int(Worksheets("Лист1").Columns("A:A").ColumnWidth)
s = Split(Cells(1, 1).Value, " ")
zz = Cells(1, 1).Font.Size
w = Int(w * 10 / zz)
For i = 0 To UBound(s)
If Len(s(i)) + Len(tt) < w Then tt = tt & s(i) & " " Else a = a & tt & vbTab: tt = ""
Next
a = Split(a & tt, vbTab)
[a3].Resize(UBound(a) + 1) = Application.Transpose(a)
End Sub

Sub puma_q()
w = Int(Worksheets("Лист1").Columns("A:A").ColumnWidth)
s = Split(Cells(1, 1).Value, " ")
zz = Cells(1, 1).Font.Size
w = Int(w * 10 / zz)
For i = 0 To UBound(s)
If Len(s(i)) + Len(tt) < w Then tt = tt & s(i) & " " Else a = a & tt & vbTab: tt = s(i) & " "
Next
a = Split(a & tt, vbTab)
[a3].Resize(UBound(a) + 1) = Application.Transpose(a)
End Sub

Sub test()
РазбивкаТекстаНаСтроки Cells(1, 1)
End Sub
Sub РазбивкаТекстаНаСтроки(SplitCell As Range)
Dim w&, ww&, zz&, s, a, i&, j&, tt$
w = Int(SplitCell.ColumnWidth)
s = Split(SplitCell.Cells(1).Value, " ")
zz = SplitCell.Cells(1).Font.Size
w = Int(w * 11 / zz)
    For i = 0 To UBound(s)
     ww = Len(s(i))
        If ww + Len(tt) < w Then
            tt = tt & s(i) & " "
        Else
            a = a & tt & vbTab
                    If ww > w Then
                        For j = 0 To Int(ww / w)
                            If j = Int(ww / w) Then
                                tt = Mid(s(i), (j * w) + 1, w) & " "
                            Else
                                a = a & Mid(s(i), (j * w) + 1, w) & vbTab
                            End If
                        Next
                    Else
            tt = s(i) & " "
            End If
        End If
    Next
a = Split(a & tt, vbTab)
SplitCell.Resize(UBound(a)).Offset(1).Insert Shift:=xlDown
SplitCell.Resize(UBound(a) + 1).Value = Application.Transpose(a)
End Sub