Что-то вы как-то не так запрос на добавления записей в существующую таблицу формируете. Последняя версия так вообще создание таблицы из запроса, и имена листов указываете не верно. :)

Пример на статичных путях к файлам

Public Sub test()

    Dim pConn As Object

    Dim sSQL As String

    Set pConn = CreateObject("ADODB.Connection")

    pConn.Open "DBQ=c:\Path\Тест Шаблон.xlsb;Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};ReadOnly=0;"

    sSQL = "Insert Into [Встречи$]"

    sSQL = sSQL & " Select * From [Excel 12.0;Database=c:\Path\Первый файл.xlsb].[Встречи$]"

    pConn.Execute sSQL, 128

    pConn.Close

End Sub