Макрос не успевает пересчитывать данные

[kuperfbi]

Добрый день. Проблемка след.характера (Excel 2003): есть достаточно большой массив с информацией по продукции (по цехам).
Массив пересчитывается по F9 (40 сек.) с выводом результатов в столбец B и последующим копированием значений в таблицу результатов. Пересчитывать нужно несколько раз для разных цехов. То есть, выбирается цех-пересчет-скопировать значения в другой столбец.
И по-новому.
Решил это дело написать с помощью макроса, результативная таблица заполняется, но только данными по последнему цеху. То есть ощущение, что при выполнении макроса просто не до конца выполняется пересчет данных. Можно как-то помочь делу? Спасибо!

Уточнение: при выполнении с меню "Сервис" макрос идет корректно, при выполнении с кнопки - засада. В кнопку выполнял копированием через конструктор (через буфер обмена) - может некорректно?

Кусок кода:

Range("P2").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C"
    Range("P3").Select
    ActiveCell.FormulaR1C1 = "7"
    Range("P4").Select
    Calculate
    Range("B3:B24").Select
    Selection.Copy
    Range("D3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("B28:B49").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("D28").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=24
    Range("B53:B74").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("D53").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=24
    Range("B79:B100").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("D79").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=-87
    Range("P3").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "8"
    Range("P3").Select
    Calculate
    Range("B3:B24").Select
    Selection.Copy