Здравствуйте,
Вместо отключения DisplayAlerts, я бы использовал отключение EnableEvents, что бы не обрабатывать события листа при копировании и отключил бы калькулирование на это время.
Использование Activate и Select допустимо только если вы хотите посмотреть глазками на какие-то данные, а при копировании они просто не нужны и занимают лишний объем памяти.
например, строки
Worksheets("Планирование").Range("A1:XA1000").Copy
Windows(firstWorkbookName).Activate
Sheets("Планирование").Select
Range("A1").Select
ActiveSheet.Paste
можно заменить одной строкой(если я правильно понял что и куда вы копируете)
Workbooks(Name).Worksheets("Планирование").Range("A1:XA1000").Copy Workbooks(firstWorkbookName).Sheets("Планирование").Range("A1")