Add Rows based on string character count then Merge and format- Improve my Macro, please

Hi All,
I've written some code to add a specific number of blank rows under a range based on that range's character, then merge the original range with the added row range, then remove the center text align.
The code works as intended, however I feel that I've written it very poorly, and I was wondering if someone could provide me with some direction to structure it better.
Here is the code:

Please Login or Register  to view this content.

Any help would be greatly appreciated, thanks!

Originally Posted by JieJenn

Just my 2cents. Use Case Statement instead of IF since you have multiple conditions. Maybe looking into Resize statement to replace offset.

Thanks JiJenn, looking into the Resize statement now, will look at Case soon as well.