VBA merging cells and counting Merged rows

[Snaybot]

I have a series of varying merged cells only in column A, such as a merged cell of 8 rows and then next merge cells is 4 cells and the next is 7 cells and so on and so on...




I Would like to figure out How to create a macro that instead of the 8 row merged cell it goes to 7 cells

So I would like the existing merged cells row count to go down by 1

so for 8 row merged cell it would go to a 7 row merged cell

so for 5 row merged cell it would go to a 4 row merged cell

so for 20 row merged cell it would go to a 19 row merged cell