VBA preceding single quote disappears after running macro

I found and modified a macro that trims and cleans all cells in a given dataset.

The problem is that I have values in a column like this: '00001 that after running the clean & trim formula, look like this: 1.

I tried first changing the cell value to {{{00001 and then change it back to '00001 after the clean & trim code has completed, but it doesn't fix the issue.

Below is my code:

Code blocked with this reason (althoughI wasn't using SQL at all)

Block reason: SQL injection was detected and blocked.