Добрый день.
Есть необходимость работы с одним файлом у большого количества человек и я решил, что самым оптимальным будет занесение информации сотрудниками отдельно на своих компьютерах, а далее уже по "кнопке" перенос этих данных в общий файл, на котором так же есть защита листов.

Всё понятно, когда надо просто скопировать "из" "в", но вот сцепить эту функцию с определением последней заполненной ячейки не получается.

Sub 1
Range("A1:F52").Select
Selection.Copy
ChDir D/
Workbooks.Open Filename:= 111

Range("A6").Select вероятно, в это место нужно вставить определение

ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

Akina,
Спасибо. Я так понял, без указания путей к файлу идёт расчёт на то, что они лежат в одной директории?
И так же нет указания на лист куда надо вставлять, так же по умолчанию будет копировать на активный?