Save XLSM without running, but retaining macros

BTW, removed the path in the SharePointPath variable, but the code works as intended. I just mainly need to save it without the "ActiveSheet.Range("A2").Value = ActiveSheet.Range("A2").Value" line running and removing the formula in the A2 field, but that does need to run whenever a final workbook is saved to the library from the template. Anyone at all able to help with this? Internet searches have yielded nothing helpful.