I set up thise macro as-is and it basically just moved the drawing to the opposite corner with parts still overhanging. I edited the macro so that it would stop after "select none" immediately below "#Move temporarily to 0,0....." and it seems to work.
One other thing to ask: is there a way I can get the macro to run upon opening a .dwg? I.e. create a preference?