Прекращение работы Excel при выполнении макроса

[Swatch]

Здравствуйте! Помогите, пожалуйста, разобраться, в чем проблема. Есть книга, которая формируется выгрузкой данных из MS Access. В ней на первом листе данные и кнопка, по нажатию на которую запускается макрос. Макрос копирует содержимое листа в другую книгу, которая либо открывается, если уже создана, либо заново создается. После копирования всех данных с листа во второй книге удаляется кнопка, по которой запускается макрос, т.к. там она не нужна.
Проблема в том, что макрос отрабатывает только в том случае, когда вторая книга (в которую выполняется копирование), пуста. Т.е. в ней только стандартные Лист 1, Лист 2, Лист 3. В этом случае все выполняется верно: создается новый лист с данными из первой книги и занимает позицию перед Листом1. При последующих попытках копирование больше не выполняется. На той самой строчке в коде, где выполняется копирование листа, вылетает сообщение о прекращении работы MS Excel. Не могу понять, в чем причина...

Sub Макрос1()
Dim xlAPP As Excel.Application
Dim xlWb As Excel.Workbook
Dim xlWs As Excel.Worksheet
Dim mypath As String
Dim s As String
mypath = "C:\Рапорты\Рапорт_" & Month(Date) & "_" & Year(Date) & ".xls"
    Set xlAPP = CreateObject("Excel.Application")
    xlAPP.Visible = False
    If Dir(mypath) = "" Then 'если рапорта за месяц еще нет, надо его создать
        Set xlWb = xlAPP.Workbooks.Add
        xlWb.SaveAs Filename:=mypath, FileFormat:=xlOpenXMLWorkbook, ConflictResolution:=xlLocalSessionChanges
        xlWb.Close
    End If
    
    Set xlWs = ThisWorkbook.Sheets(1)
    s = ThisWorkbook.Sheets(1).Name
    Set xlWb = Workbooks.Open(mypath)
    xlWs.Copy Before:=xlWb.Worksheets("Лист1") ' вот здесь прекращает работать
    xlWb.Worksheets(s).Shapes("Button 1").Delete
    ThisWorkbook.Close SaveChanges:=False
 

End Sub

[Aleksandr H.]

чему равно S?

s = ThisWorkbook.Sheets(1).Name

[Swatch]

s равно текущей дате, преобразованной к текстовому формату... Этот параметр передается из Акцесса при формировании первой книги.

[Swatch]

Выявилось следующее: если в книгу, куда я пытаюсь скопировать лист, предварительно добавить пустой лист вручную, то тогда копирование выполняется.

[Aleksandr H.]

Сообщение от Swatch

предварительно добавить пустой лист вручную

проверяйте сколько листов в новой книге, если 0 - добавляйте лист макросом. А почему вставить надо именно перед "Лист1", а если "Лист1" не будет в книге?

[Swatch]

да в общем то и необязательно перед Лист1, мне просто нужно соблюдать порядок по возрастанию при каждом копировании листа. Т.к. наименования листов обозначают даты, и важно их расположить по возрастанию за месяц. Поэтому я и ориентировалась, чтобы каждый следующий лист всегда вставал перед Листом1.

[Swatch]

А как можно вставить лист, не указывая параметр Before, т.е. чтобы обойтись без указания конкретного листа?

[Aleksandr H.]

вставляйте после всех листов.

    With xlWb 
        .Sheets.Add(After:=.Sheets(.Sheets.Count)).Name = s
    End With

[Swatch]

Спасибо!