Копирование необходимого текста на другой лист через команду контекстного меню

[Сергей Ш.]

Добрый день.
Нужна ваша помощь. Есть одна задумка, но осуществить не получается, т.к. не селен в макросах.
Так как часто приходится копировать необходимый мне текст, с одного листа на другой, хотелось бы, при нажатии правой клавиши мышки перенести необходимый текст на другой лист, в свободную, пустую строку.
Подробнее:
Необходимо, из контекстного меню, выбрать команду "Переместить" и из Листа "ЛМК" автоматически копируется выбранный текст, находящиеся в ячейках столбца С, Е и F на Лист "Оформ." в пустые строки, расположенные ниже имеющегося текста, в ячйки столбцов С,D и E.

Есть файл во вложении.
Заранее спасибо.

[VictorM]

1. Создаете контекстное меню Как добавить свои команды в стандартное контекстное меню
2. Назначаете команде контекстного меню Ваш макрос "Переместить".
Макрос можно записать макрорекордером и затем подредактировать, чтобы он находил первую незаполненную строку Как определить последнюю ячейку на листе через VBA

[Сергей Ш.]

В контекстное меню добавил, а вот с макросом не получается.
Как сделать макрорекордером, чтобы необходимый мне текст копировался на другой лист в определенные ячейки.

[VictorM]

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

Я писал выше, что макрос нужно будет редактировать.
Что-то не получается, выкладывайте файл с тем, что у Вас есть, что получилось.
Посмотрим.

[Сергей Ш.]

Файл во вложении.

[VictorM]

Копирование в нижнюю пустую строку листа "Оформ" можно сделать так

Sub Макрос2()
    Sheets("ЛМК").Range("C12").Copy
    Sheets("Оформ.").Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
    Sheets("ЛМК").Range("E12").Copy
    Sheets("Оформ.").Cells(Rows.Count, 5).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
    Sheets("ЛМК").Range("F12").Copy
    Sheets("Оформ.").Cells(Rows.Count, 4).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
    Application.CutCopyMode = False
End Sub

Но здесь копируются ТОЛЬКО фиксированные данные, указанные Вами, что и как нужно копировать пока непонятно

[VictorM]

Если же предполагается копировать данные от ФИО, то тогда можно так

Sub Макрос3()
    Application.ScreenUpdating = False
    With ActiveCell
        .Copy
        Sheets("Оформ.").Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
        .Offset(0, 2).Copy
        Sheets("Оформ.").Cells(Rows.Count, 5).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
        .Offset(0, 3).Copy
        Sheets("Оформ.").Cells(Rows.Count, 4).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
    End With
    Application.CutCopyMode = False
End Sub

Становимся в ячейку с ФИО, ПКМ - Переместить
Все работает

[Сергей Ш.]

VictorM
То что надо! Спасибо вам за помощь!