Добавьте в код строки
[vba]Код
'выключаем некоторые параметры для увеличения скорости обработки файла
With Application
.ScreenUpdating = False 'отключение обновление экрана
.Calculation = xlCalculationManual 'отключение пересчёт формул вручную
.EnableEvents = False 'отключение событий
.DisplayAlerts = False 'отключение предупреждающих сообщений
End With
'ОСНОВНОЙ КОД....
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
.EnableEvents = True
.DisplayAlerts = True
End With
End Sub
[/vba]