Авто-перенос слова из ячейки

[kuklp]

Выделяем ячейки запускаем:

Public Sub www()
    Dim c As Range, l&
    For Each c In Selection
        If Len(c.Value) > 75 Then
                l = InStrRev(c.Value, " ", 76)
            c(1, 3) = Trim(Left(c, l)): c(1, 4) = Trim(Mid(c, l))
        End If
    Next
End Sub

Ах да, так будет на месте:

Public Sub www()
    Dim c As Range, l&
    For Each c In Selection
        If Len(c.Value) > 75 Then
                l = InStrRev(c.Value, " ", 76)
             c(1, 2) = Trim(Mid(c, l)): c = Trim(Left(c, l))
        End If
    Next
End Sub

[IgorGO]

кажется я понял задачу!!!
замена 3-я (зачетная)

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim c As Range
  If Intersect(Target, Columns(1)) Is Nothing Then Exit Sub
  Application.EnableEvents = False
  For Each c In Intersect(Target, Columns(1))
    If Len(c) > 75 Then
      c.Offset(0, 1) = StrReverse(Split(StrReverse(Left(c, 75)))(0)) & Right(c, Len(c) - 75)
      c = Left(c, Len(c) - 1 - Len(c.Offset(0, 1)))
    End If
  Next
  Application.EnableEvents = True
End Sub

а каждой конкретной ячейке решается след. задача:
если длина ячейки > 75 символов - ячейка разбивается на 2 части
первая часть не более 75 символов по ближайшему от 75 позиции пробелу слева
все, что не поместилось в А - переносится в колонку В

[IgorGO]

читаем самое первое сообщение

Задача в том, что бы автоматически переносить последнее слово из предложения в ячейке, в другой столбец этой же строки при условии если в предложении больше 75 символов.

понимаете, написано "переносить ПОСЛЕДНЕЕ СЛОВО из предложения", именно эту задачу я и решал, только то же почему-то "переносить", я воспринял как "копировать", поэтому оно оставалось в исходной ячейке.

а коротко задача видимо могла звучать так
при изменении значения в колонке А, если в ячейке больше 75 символов, разбиваем ее на две, разбиваем по словам, в исходной оставляем не более 75 символов, все остальное переносим в ячейку правее

всем спасибо!
ясного ума и четких формулировок!
удачи!