VBA 实现标记合并单元格

写了一个可以标记合并单元格的VBA，加了个msgbox 后，前面的哪个标记成红的语句就执行不了了， 有人知道是哪里出问题了么