画面の更新をしないようにして、マクロの速度を向上させる。

Application.ScreenUpdatingにfalseを指定して、画面の更新をしないようにします。

マクロの処理過程を見られなくなりますが、その分実行速度が上がります。

Sub test()
        Application.ScreenUpdating = false
        '実行したい処理
        Application.ScreenUpdating = true
End Sub

 目的の処理が終わったら、Application.ScreenUpdatingにtrueを指定して、画面の更新を行うよう元に戻しておきます。