Macro not working correctly

Could someone help. I've got this macro that works great in one report. So I copy copy it and modify it a bit to use in another report, but it is not performing all the commands. The macro creates "fake rows" of data to keep the subtotal function from going haywire, but for some reason it is not deleting the "fake rows" of data after the subtotaling is complete or bolding the entire subtotal rows. I've attached the file.
Thank you for any help.