[subuday77]

Спасибо.
Про Select() я в курсе. Но грешен. Я ещё и <шопотом, оглядываясь> goto в батниках использую.
Но в целом, да, как записал, так и работает. Ну, почти. В напрямую записанном виде он не работал, по причине превышения 64 битного размера.
Пришлось слегка допилить.
Ваш способ очень хорош, более того, позволяет более гибко обработать лист.
Но в нём всё равно 2 прохода по листу.

И всё таки, можно как-то скомбинировать буквы и переменные?
Допустим, даже без Select.

Код:

 For iRowCount = 2 To 2200
            With ActiveSheet.Cells.Cells("A" & iRowCount : "B" & iRowCount)
           .MergeCells = false
 End With
        Next iRowCount

Вот такое что-нибудь?

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

А что так можно было?!

А он не угробит содержимое всех ячеек, кроме верхней?
UPD. Проверил. Нет, не угробит.