[Iska]

subuday77, я серьёзно спрашиваю по поводу:

что он, собственно, делает и зачем? Вам действительно нужно всё вот это: »

ибо, если окажется, что Вам действительно нужно только рассплитить ячейки, то всё укладывается в одну строку:

Код:

    With ActiveSheet
        .Range(.Cells.Cells(2, 1), .Cells.Cells(2200, 2)).Unmerge
    End With

вместо перебора кучи ячеек диапазона по одной.