Перенос последней буквы в строке

[IL3614]

Здравствуйте.
Подскажите, пожалуйста, возможно ли решение такой проблемы. При занесении в таблицу буквы на листе 1, на лист 2 переносились бы последнее значение в строке:
если последняя буква "и" или "д" то в столбец "C"
если "ц" или "б" то в столбец "B".
Было бы здорово если бы примечание тоже переносилось.

А если это невозможно то хотя бы, чтоб последняя буква в строке на листе 1 переносилась ты вместе с примечанием на лист 2 соответственно.

[kuklp]

В модуль листа:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range
    On Error Resume Next
    If Intersect(Target, [b3:s8]) Is Nothing Then Exit Sub
    Set c = Cells(Target.Row, Columns.Count).End(xlToLeft)
    Select Case c.Value
    Case "и", "д"
        c.Copy Sheets("2").Cells(Target.Row, 3)
    Case "ц", "б"
        c.Copy Sheets("2").Cells(Target.Row, 2)
    End Select
End Sub

[IL3614]

Буду очень признателен, если подскажете как в модуль добавить.
Ибо я не программист, просто мне сказали что такая возможность есть вот я и решил узнать как.

[kuklp]

ПКМ на ярлыке листа - исходный текст. Тут почитайте:
http://www.excel-vba.ru/chto-umeet-e...yvayut-moduli/

[shanemac51]

перенос комментария

[Stertor]

Код на Visual Basic впечатлил. Я много лет кодил на этом языке )

[IL3614]

Большое спасибо за помощь.
Я по разбираюсь, может ещё вопросы появятся.