自動計算が行われないようにする

自動計算が有効になっている場合 セルの値を変更する度に再計算が行われてしまうため 計算式の数によっては処理に
大きく時間がかかってしまう可能性があるため 自動計算は無効にしたほうがよいでしょう

処理が終了したら xlCalculationAutomatic を設定して自動計算を有効にします
このとき 再計算は自動的に実行されるので 再計算 (Calculate) を実行する必要はありません

Sheet.EnableCalculation プロパティを設定すれば マクロの終了後も シートが再計算されないようにする ことができます

Application.Calculation = xlCalculationManual