title: Merge Cells of one specific column if equal value
body: <p>I need to loop over all rows (except my header rows) and merge all cells with the same value in the same column. Before I do this I already made sure, that the column is sorted.
  So I have some setup like this.</p>
  
  <pre><code>a b c d e
  1 x x x x 
  2 x x x x
  2 x x x x
  2 x x x x
  3 x x x x
  3 x x x x
  </code></pre>
  
  <p>And need this</p>
  
  <pre><code>a b c d e
  1 x x x x 
  2 x x x x
    x x x x
    x x x x
  3 x x x x
    x x x x
  </code></pre>
  
  <p>With my code I achieved to merge two equal cells. Instead I need to merge all equal cells.</p>
  
  <pre><code>Dim i As Long
  For i = 2 To Range("A" &amp; Rows.Count).End(xlUp).Row
      If Cells(i, 1) &lt;&gt; "" Then
          If Cells(i, 1) = Cells(i - 1, 1) Then
              Range(Cells(i, 1), Cells(i - 1, 1)).Merge
          End If
      End If
  Next i
  </code></pre>