Разбить объединенные ячейки относительно другой ячейки

[samouelson]

Доброго времени суток.
Помогите, пожалуйста, разбить объединенные ячейки рядом с ячейкой Заказ.
Скриншот и файл Excel прилагаю.
Разбить ячейки посредством VBA.

[Aleksandr H.]

Так а в чем проблема-то? Выделить нужный диапазон и нажать "Отменить обединение ячеек"

[samouelson]

Извиняюсь, забыл написать, что сделать надо посредством скрипта. Потому что таких табличек (с такими заголовками) может быть несколько.

[Elixi]

Sub Razbivka()
Dim Rw&, RwL&

    RwL = Cells(Rows.Count, 1).End(xlUp).Row
    For Rw = 1 To RwL
        'If InStr(Cells(Rw, 1), "Заказ") > 0 Then
        If Cells(Rw, 1) = "Заказ" Then
            Range(Cells(Rw, 1), Cells(Rw + 1, 10)).MergeCells = False
        End If
    Next Rw
End Sub

[samouelson]

Thank you very much! Благодарю!