Merge & center every 2 cells in a range in VBA
<p>I am trying to figure out how to merge every 2 cells in a column. I feel like I am overthinking it though. My if then statement isn't necessary I was just playing around.  Here is the code: </p>

<pre><code>Dim RgToMerge As String

   For i = 1 To ActiveSheet.Cells(Rows.Count, 3).End(xlUp).row
   RgToMerge = ""
   If Cells(i, 3) = "" Then
   RgToMerge = "$C$" &amp; i &amp; ":$C$" &amp; i + 1
   With range(RgToMerge)
       .Merge
       .HorizontalAlignment = xlCenterAcrossSelection
       .VerticalAlignment = xlCenter

   End With
   Else
   End If
Next I
End sub
</code></pre>