You could try adding:
Application.Calculation = xlCalculationManual
at the start and
Application.Calculation = xlCalculationAutomatic
at the end.