A common way to speed up macros considerably is by adding these two lines of codes to the start and end of the macro respectively..

Sub DoSomething()
   Dim x as Long
   ' etc
  
   Application.ScreenUpdating = False

   ' …  Macro instructions go here ….

   Application.ScreenUpdating = True

End Sub
Hope this helps,
- Stu