Добрый всем день! необходимо ежесуточно копировать лист из одной книги в конец другой, записал через макрос команду переместить/скопировать, но на второе выполнение макрос добавляет лист не в конец, а предпоследним, далее 3-м с конца... как сделать, чтобы всегда лист копировался в конец?
Код
Dim z As Integer
z = ActiveWorkbook.Sheets.Count
Sheets("Лист1").Select
Sheets("Лист1").Copy After:=Workbooks("Книга2.xlsx"). _
Sheets(Str(z) + 7)
Windows("Книга2.xlsx").Activate
ActiveWorkbook.BreakLink Name:= _
"D:\Книга1.xlsx", Type _
:=xlExcelLinks
Windows("Книга1.xlsx").Activate