1. If you have a macro that runs at startup, or causes delays during
use, place the statement,
Application.ScreenUpdating = False at the start, then
Application.ScreenUpdating = True at the end

This will speed things up a bit.

Recorded macros can be very inefficient, so maybe look and see if it's
doing anything unnecessary.

To end up at sheet1 after using sheet2 with the macro, just place:

Sheets("Sheet1").Activate

at the end of the procedure