Turn off Screen Updating
Application.ScreenUpdating = False
at the end:
Application.ScreenUpdating = True
Turn On Manual calculation
Sub GoToManual()
Dim xlCalc As XlCalculation
xlCalc = Application.Calculation
Application.Calculation = xlCalculationManual
On Error GoTo CalcBack
‘YOUR CODE
Application.Calculation = xlCalc
Exit Sub
CalcBack:
Application.Calculation = xlCalc
End Sub