Протекающие горутины, как правило, имеют в три раза больше бега, чем я хочу

Вставьте свой код внутри:

Application.Calculation = xlCalculationManual
    'Your code here
Application.Calculation = xlCalculationAutomatic

Кроме того, ваш Cells не является квалифицированным, что означает, что это будет по умолчанию для активного листа. Вы должны квалифицировать свои ячейки с помощью листа вместо того, чтобы полагаться на ActiveSheet

. Также не помешало бы выключить ScreenUpdating. (Application.ScreenUpdating = True/False) [/ д2]