Sub WriteInTempl()

Dim tempPath As String ' переменная для пути к файлу с формой
Dim wbkTab As Workbook ' объявляем переменную для файла с таблицей
Dim wbkTemp As Workbook ' объявляем переменную для файла с формой
Dim shtTab As Worksheet ' объявляем переменную для листа с таблицей
Dim shtTemp As Worksheet ' объявляем переменную для листа с формой

Application.ScreenUpdating = False 'отключаем обновление экрана, чтобы не мелькали листы
Application.DisplayAlerts = False 'отключаем уведомления, чтобы не выскакивало окно подтверждения при сохранениии

tempPath = "C:\Users\Евгений\Desktop\Новая папка (2)\Шаблон.xlsx" ' вставляете свой путь к файлу с формой

'исходим из того что макрос запускается из книги с таблицей
'устанавливаем значение переменных для файлов и листов
Set wbkTab = ThisWorkbook
Set shtTab = wbkTab.Worksheets("Главная")
Set wbkTemp = Application.Workbooks.Open(tempPath)
Set shtTemp = wbkTemp.Worksheets("Встреча")

'копируем что нужно и куда нужно
shtTemp.Cells(1, 3) = shtTab.Cells(2, 4) ' например вводит значение из ячейки (строка 2, столбец 4) файла таблицы в ячейку (строка 1, столбец 3) файла формы

'сохраняем как новый файл с новым именем
wbkTemp.SaveAs ("C:\Users\Евгений\Desktop\Новая папка (2)\Шаблон_Заполненный.xlsx")
wbkTemp.Close ' закрываем книгу

Application.ScreenUpdating = True 'вкл обновление экрана обратно
Application.DisplayAlerts = True 'вкл уведомления обратно

End Sub