Методом слежения за выполнением по F8 я выделил часть кода на которую уходит больше всего времени. При том что у соседа это делается за 2 секунды где то, и ещё 2 всё остальное (форматирование и тд).
'!ОПРЕДЕЛЯЕТ В КАКУЮ ЯЧЕЙКУ ВСТАВЛЯТЬ ЗНАЧНИЕ В ОТЧЁТЕ!
If ThisWorkbook.Worksheets("Сводный отчёт").Range("I4") = 0 Then
Set Первая_Ячейка_в_Отчёте = Range("I4")
Set Тип_Для_Отчёта_Ячейка_Куда_Вставляет = ThisWorkbook.Worksheets("Сводный отчёт").Range("A1").Offset(3 + I, 4)
Set Тип_Для_ЗП_Ячейка_Куда_Вставляет = ThisWorkbook.Worksheets("Сводный отчёт").Range("A1").Offset(3 + I, 5)
Set Субсчёт_Ячейка_Куда_Вставляет = ThisWorkbook.Worksheets("Сводный отчёт").Range("A1").Offset(3 + I, 6)
Set Процент_Инспектора_Ячейка_Куда_Вставляет = ThisWorkbook.Worksheets("Сводный отчёт").Range("A1").Offset(3 + I, 7)
Set Пользователь_Ячейка_Куда_Вставляет = ThisWorkbook.Worksheets("Сводный отчёт").Range("A1").Offset(3 + I, 8)
Set Остаток_На_Начало_Ячейка_Куда_Вставляет = ThisWorkbook.Worksheets("Сводный отчёт").Range("A1").Offset(3 + I, 9)
Set Передано_Ячейка_Куда_Вставляет = ThisWorkbook.Worksheets("Сводный отчёт").Range("A1").Offset(3 + I, 10)
Set Зачтено_Ячейка_Куда_Вставляет = ThisWorkbook.Worksheets("Сводный отчёт").Range("A1").Offset(3 + I, 11)
Set Дата_Поступления_Ячейка_Куда_Вставляет = ThisWorkbook.Worksheets("Сводный отчёт").Range("A1").Offset(3 + I, 12)
Set Сумма_Поступления_Ячейка_Куда_Вставляет = ThisWorkbook.Worksheets("Сводный отчёт").Range("A1").Offset(3 + I, 13)
Set Остаток_На_Конец_Ячейка_Куда_Вставляет = ThisWorkbook.Worksheets("Сводный отчёт").Range("A1").Offset(3 + I, 14)
Else
Set Первая_Ячейка_в_Отчёте = Range("A4").CurrentRegion.End(xlDown)
Set Тип_Для_Отчёта_Ячейка_Куда_Вставляет = ThisWorkbook.Worksheets("Сводный отчёт").Range("a4").Offset(I, 4)
Set Тип_Для_ЗП_Ячейка_Куда_Вставляет = ThisWorkbook.Worksheets("Сводный отчёт").Range("A4").Offset(I, 5)
Set Субсчёт_Ячейка_Куда_Вставляет = ThisWorkbook.Worksheets("Сводный отчёт").Range("a4").Offset(I, 6)
Set Процент_Инспектора_Ячейка_Куда_Вставляет = ThisWorkbook.Worksheets("Сводный отчёт").Range("A4").Offset(I, 7)
Set Пользователь_Ячейка_Куда_Вставляет = ThisWorkbook.Worksheets("Сводный отчёт").Range("a4").Offset(I, 8)
Set Остаток_На_Начало_Ячейка_Куда_Вставляет = ThisWorkbook.Worksheets("Сводный отчёт").Range("a4").Offset(I, 9)
Set Передано_Ячейка_Куда_Вставляет = ThisWorkbook.Worksheets("Сводный отчёт").Range("a4").Offset(I, 10)
Set Зачтено_Ячейка_Куда_Вставляет = ThisWorkbook.Worksheets("Сводный отчёт").Range("a4").Offset(I, 11)
Set Дата_Поступления_Ячейка_Куда_Вставляет = ThisWorkbook.Worksheets("Сводный отчёт").Range("a4").Offset(I, 12)
Set Сумма_Поступления_Ячейка_Куда_Вставляет = ThisWorkbook.Worksheets("Сводный отчёт").Range("a4").Offset(I, 13)
Set Остаток_На_Конец_Ячейка_Куда_Вставляет = ThisWorkbook.Worksheets("Сводный отчёт").Range("a4").Offset(I, 14)
End If
'!ВЫБИРАЕТ ЧТО КОПИРОВАТЬ И КУДА КОПИРОВАТЬ!
If Проверка_Условия_ДаНет = "да" And Проверка_Инспектора = SpisInsp.Value Then
Select Case Mes.Value
Case "Январь 2012"
Set Тип_Для_Отчёта_Ячейка_Откуда_Копирует = ThisWorkbook.Worksheets("Отчёт").Range("A1").Offset(2 + I, 104)
Set Субсчёт_Ячейка_Откуда_Копирует = ThisWorkbook.Worksheets("Отчёт").Range("A1").Offset(2 + I, 14)
Set Процент_Инспектора_Ячейка_Откуда_Копирует = ThisWorkbook.Worksheets("Отчёт").Range("A1").Offset(2 + I, 11)
Set Пользователь_Ячейка_Откуда_Копирует = ThisWorkbook.Worksheets("Отчёт").Range("A1").Offset(2 + I, 10)
Set Остаток_На_Начало_Ячейка_Откуда_Копирует = ThisWorkbook.Worksheets("Отчёт").Range("A1").Offset(2 + I, 417)
Set Передано_Ячейка_Откуда_Копирует = ThisWorkbook.Worksheets("Отчёт").Range("A1").Offset(2 + I, 425)
Set Зачтено_Ячейка_Откуда_Копирует = ThisWorkbook.Worksheets("Отчёт").Range("A1").Offset(2 + I, 428)
Set Дата_Поступления_Ячейка_Откуда_Копирует = ThisWorkbook.Worksheets("Отчёт").Range("A1").Offset(2 + I, 419)
Set Сумма_Поступления_Ячейка_Откуда_Копирует = ThisWorkbook.Worksheets("Отчёт").Range("A1").Offset(2 + I, 418)
Set Остаток_На_Конец_Ячейка_Откуда_Копирует = ThisWorkbook.Worksheets("Отчёт").Range("A1").Offset(2 + I, 429)
Тип_Для_Отчёта_Ячейка_Куда_Вставляет.Value = Тип_Для_Отчёта_Ячейка_Откуда_Копирует.Value
Субсчёт_Ячейка_Куда_Вставляет.Value = Субсчёт_Ячейка_Откуда_Копирует.Value
Процент_Инспектора_Ячейка_Куда_Вставляет.Value = Процент_Инспектора_Ячейка_Откуда_Копирует.Value
Остаток_На_Начало_Ячейка_Куда_Вставляет.Value = Остаток_На_Начало_Ячейка_Откуда_Копирует.Value
Передано_Ячейка_Куда_Вставляет.Value = Передано_Ячейка_Откуда_Копирует.Value
Зачтено_Ячейка_Куда_Вставляет.Value = Зачтено_Ячейка_Откуда_Копирует.Value
Дата_Поступления_Ячейка_Куда_Вставляет.Value = Дата_Поступления_Ячейка_Откуда_Копирует.Value
Сумма_Поступления_Ячейка_Куда_Вставляет.Value = Сумма_Поступления_Ячейка_Откуда_Копирует.Value
Остаток_На_Конец_Ячейка_Куда_Вставляет.Value = Остаток_На_Конец_Ячейка_Откуда_Копирует.Value
Пользователь_Ячейка_Куда_Вставляет.Value = Пользователь_Ячейка_Откуда_Копирует.Value