求助大佬解惑，怎么把两条正则表达式一起运行。。。

学习VBA几天了，无奈基础知识还不能很好的消化和运用，碰到了实际使用问题。
因为不知道怎么让两条正则同时运行，因为得到的结果还需要循环写到单元格。
无奈写了2条独立的代码
但是运行起来也不完美。望大神解惑。因为是按照选择区域来偏移，所以第二组数据格式就会乱了。。。
第二组数据 可以不可以 .sj.offset9(0,1)这样来进行偏移。。。然后这又涉及到怎么把这两个代码组合在一起。。。
因为是小白 - -，很多想说的可能表达的不好，各位见笑了。。