Объединение ячеек

[Nadin_2525]

Здравствуйте.
Подскажите пожалуйста как объединить ячейки в одном столбце по признаку указанному в другом.
Например. Есть таблица с нескольким столбцами. Значения в столбце В повторяются несколько раз (повтор идет блоками и один за другим, т.е. значения если и повторятся то повторяются в одном месте таблицы и в других частях таблицы не встречаются - воспользовалась фильтром). Нужно в объединить ячейки в столбце С таким образом, чтобы объединение соответствовало только повторяющемуся блоку значений ячеек приведенных в столбце В.
Делала все в ручную, но это очень долго и муторно. Нужно оптимизировать процесс, чтобы результат был таким. Итоговый файл (сделанный в ручную) приведен во вложении.
Кто может помогите с макросом!!!

[Nadin_2525]

P.S. Удалять ячейки и строки нельзя, т.к. есть дополнительные столбцы с уникальными данными!!!

[IgorGO]

выполните этот

Sub MergeCells()
  Dim r As Long, rc As Long
  r = 2
  Do While Not IsEmpty(Cells(r, 2))
    rc = WorksheetFunction.CountIf(Columns(2), Cells(r, 2))
    If rc > 1 Then Cells(r, 3).Resize(rc, 1).MergeCells = True
    r = r + rc
  Loop
End Sub

при активном листе с Вашими данными

[Nadin_2525]

Спасибо Большое!!! Код работает замечательное, время выполнения сократилось в 10 раза!!!