Макрос для разбивания ячеек и их копирования ниже - VBA

Формулировка задачи:

Всем привет. Уважаемые программисты, прошу помощи. Есть таблица. 100500 строк. Необходимо автоматизировать процесс разбивания ячеек в первых трех столбах и копировании данных в высвободившиеся ячейки. Набросал примерный файлик во вложении. Количество объединенных ячеек может быть разное. В основном 2 или 3. Помогите люди добрые)

Решение задачи: «Макрос для разбивания ячеек и их копирования ниже»

textual
                            Листинг программы 
                        

                            Sub main()
Dim r&, c&, rn As Range
Application.ScreenUpdating = False
For c = 1 To 3
  For r = 2 To ActiveSheet.UsedRange.Rows.Count
    Set rn = Cells(r, c).MergeArea
    If rn.Rows.Count > 1 Then
      rn.UnMerge
      rn.Value = rn(1)
      r = r + rn.Rows.Count - 1
    End If
  Next
Next
Application.ScreenUpdating = True
End Sub
                        