合并单元格并换行的程序简化

yjm0809

各位大侠，本人用录制宏的方式得到了合并单元格并换行的程序语句，请都大家下，下面和程序可以简化吗？谢谢
Sheets("?????????").Range("p" & i - j + 7 & ":p" & i + 6).Select
        With Selection
          .HorizontalAlignment = xlLeft
          .VerticalAlignment = xlCenter
          .WrapText = True
          .Orientation = 0
          .AddIndent = False
          .IndentLevel = 0
          .ShrinkToFit = False
          .ReadingOrder = xlContext
          .MergeCells = True
        End With
        Sheets("?????????").Range("q" & i - j + 7 & ":q" & i + 6).Select
        With Selection
          .HorizontalAlignment = xlLeft
          .VerticalAlignment = xlCenter
          .WrapText = True
          .Orientation = 0
          .AddIndent = False
          .IndentLevel = 0
          .ShrinkToFit = False
          .ReadingOrder = xlContext
          .MergeCells = True
        End With