Merge down columns A and B under each headings
<p>I am looking to merge a series of headings with a number of blanks underneath such as: </p>

<pre><code>Header 1     Header1a
Blank        Blank
Blank        Blank
Blank        Blank
Header 2     Header 2a
Blank        Blank
Blank        Blank
Header3      Header 3a
Blank        Blank
Blank        Blank
</code></pre>

<p>I have a macro working to merge and center the text, but only works for Column "A".</p>

<p>I'm sure this is a quick fix, but I would like it to run the macro down Columns A and B. Just to clarify, columns A and B to merge individually down the columns and not between each other.</p>

<p>Sub Rectangle1_Click()</p>

<pre><code>For i = 6 To Cells(65535, 1).End(xlUp).Row
If IsEmpty(Cells(i, 1)) Then Range(Cells(i - 1, 1), Cells(i, 1)).Merge
Next

Range("C5:C2000").Select
With Selection
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlCenter
    .WrapText = False
    .Orientation = 0
    .AddIndent = False
    .IndentLevel = 0
    .ShrinkToFit = False
    .ReadingOrder = xlContext
End With

End Sub
</code></pre>