Clean up the VBA to run better - USD $20