[subuday77]

Вот, привёл вот к такому виду:

Код:

Sub Unmerge()
'
' Unmerge Macro
'
'

  With ActiveSheet
    .Range("$A$2:$B$2200").Unmerge
    .Range("$A:$B").AutoFilter Field:=1, Criteria1:="="
     Rows("2:2200").Select
     Selection.Delete Shift:=xlUp
    .Range("$A:$B").AutoFilter Field:=1
    .Range("D1").Select
  End With
End Sub

Всё работает.
Ещё раз спасибо!