【VBA】任意の範囲のセルを結合(中央揃え:１行毎)

任意のセル範囲を結合(中央揃え)にするコード。
※繰り返しのループを使用

Sub Macro1()
For e = 4 To 68
　　Range("M" & e & ":O" & e).Select
　　With Selection
　　.HorizontalAlignment = xlCenter
　　.VerticalAlignment = xlCenter
　　.WrapText = False
　　.Orientation = 0
　　.AddIndent = False
　　.IndentLevel = 0
　　.ShrinkToFit = True
　　.ReadingOrder = xlContext
　　.MergeCells = False
　　End With
　　Selection.Merge
　　Next
End Sub