Макрос для объединения ячеек

[Lynx_by]

Добрый день

Задача: сделать так, что то, что на картинке 1 мерджилось так, как на картинке 2, но не так, как на картинке 3.

'merge all rows
     StartRow = blueCell.Row + 2
    For rcIndex = 1 To blueCell.Column - 2
        For RowIndex = StartRow To LastFiledRow
            With Cells(RowIndex, rcIndex)
                If .Value = .Offset(-1, 0).MergeArea.Cells(1).Value Then
                    If (Not Cells(RowIndex, rcIndex).MergeCells) And (Not Cells(RowIndex, rcIndex).Offset(-1, 0).MergeCells) Then
                      Range(Cells(RowIndex, rcIndex), .Offset(-1, 0)).Merge
                    End If
                End If
            End With
        Next RowIndex
    Next rcIndex

[Lynx_by]

Разобралась, что не работало. Тема не актуальна.