Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
If Application.Intersect(Range("D13:D48"), Target) Is Nothing Then Exit Sub
Dim maxLen As Integer, tabStr, i As Integer, tempStr
maxLen = 70
tabStr = Split(Target.Value, " ")
tempStr = ""
For i = LBound(tabStr) To UBound(tabStr)
If Len(tempStr & " " & tabStr(i)) < maxLen Then
If tabStr(i) <> "" Then tempStr = tempStr & " " & tabStr(i)
Else
If tempStr = "" Then tempStr = tabStr(i)
tempStr = Right(tempStr, Len(tempStr) - 1)
Target.Offset(1, 0).Value = Mid(Target.Value, Len(tempStr) + 2, Len(Target.Value) - Len(tempStr)) & " " & Target.Offset(1, 0).Value
Target.Value = tempStr
i = UBound(tabStr) + 1
End If
Next i
End Sub