As cool as it looks watching your macro manipulate the screen, you can help it run faster if you turn off Screen Updating.

1. At the beginning of your code put this line:

Application.ScreenUpdating = False

2. At the end of your code put this line:

Application.ScreenUpdating = True