Как перенести определённые данные из строки

[Kamikaze13]

В таблице надо перенести часть строки.
А именно чтоб:
В столбец "адрес" попадал "адрес доставки" из первого листа
В столбец "Заказчик" - "Контактные данные"
В столбец "№" - "№ заказа"
В столбец "кол-во" - "общее кол-во изделий"
В столбец "доставка" и "разгрузка" - оплата разгрузки и доставки соответственно
Там есть макрос на отметку строки флажком, но перенести её чего-то не получается. Что делаю не так?
Сразу говорю не спец в написании макросов но хотя бы пример переноса определённой ячейки из выбранного хотелось бы увидеть.

[EducatedFool]

См. вложение.

Для заполнения путевого листа используйте контекстное меню ячеек.
(щелкните правой кнопкой на любой ячейке желтой строки на листе заказов)

В процедуре CopyRow есть закомментированные строки со знаками вопросов вместо номера столбца, так как я не понял, из каких столбцов Листа Заказов брать данные для некоторых столбцов Путевого Листа. Но с этим Вы и сами разберётесь.

Будут вопросы или пожелания по изменению кода - обращайтесь.

[КаМММ]

Sub Вставка()
c = ActiveCell.Row 'Определяем строку активной ячейки
s = Sheets("List").Range("C30").End(xlUp).Row + 1 'Определяем последнюю свободную строку в для копирования
If s < 8 Then s = 8 'проверяем не заголовок-ли
With Sheets("List")
.Cells(s, 3) = Cells(c, 4) 'вставляем значения из данных столбца 4 в путевой столбец 3(номер заявки)
.Cells(s, 4) = Cells(c, 35) 'из 35 в 4ю
.Cells(s, 5) = Cells(c, 36) 'и далее
.Cells(s, 9) = Cells(c, 9)
.Cells(s, 11) = Cells(c, 30)
.Cells(s, 12) = Cells(c, 31)
End With
'готово для одной строки с активной ячейкой на листе с данными
End Sub

Может как-то так?

[Kamikaze13]

Большое спасибо.
Код обалденный, теперь знаю хоть как писать чтоб самому не запутаться )