para saber por donde va el problema, no hay otra opción que ver el código, ahora estoy lejos de ser experto en VBA y tal vez esto es mas que obvio pero (a falta de datos) igual pregunto...
estas controlando los cálculos automáticos, actualización de pantalla, etc.
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
...
código VBA
...
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
ActiveSheet.DisplayPageBreaks = True