Sub Карточка()
Dim wdApp As Object
Dim wdDoc As Object

HomeDir$ = ThisWorkbook.Path
Set wdApp = CreateObject("Excel.Application")

' дата сегодня
Data1$ = Date
' данные одной ячейки, (A1) с шаблона, для теста и примера
Col_1$ = Cells(1, 1).Text

' создаю копию по шаблону, сохраняю в отдельную папку с именем файла по дате и др. данным в имени файла ...
  FileCopy HomeDir$ + "\Shablon\ShablonTEST.xlsx", HomeDir$ & "\NewDOC\" & "_TEST_" + Data1$ & ".xlsx"
  Set wdDoc = wdApp.Workbooks.Open(HomeDir$ & "\NewDOC\" & "_TEST_" & Data1$ & ".xlsx")
       
' (!!!) именно тут получаю «DEBUG»,
' НОВЫЙ файл открыт в фоне, готов получить данные, но НЕ заполняется, VBA светит ошибку в строке ниже
' Нужен код, для переноса данных, в новый документ, мой НЕ работает
wdDoc.Range.Find.Execute FindText:="&Col_1"

        
wdDoc.Save
wdDoc.Close

wdApp.Quit
MsgBox "Документ TEST создан!"

End Sub