Sub UnMerge_()
With ActiveSheet.UsedRange
    .UnMerge
    .Interior.Pattern = xlNone
End With
For c = Cells(1, Columns.Count).End(xlToLeft).Column To 1 Step -1
    If Not IsNumeric(Cells(1, c)) Then Columns(c).Delete
Next c
End Sub


Sub tt()
    Dim d0_ As Range, d1_ As Range
    Application.ScreenUpdating = 0
    Application.Calculation = xlCalculationManual
    Set d0_ = Range(Cells(1), Cells(1).SpecialCells(xlLastCell))
    cn_ = d0_.Cells.Count
    For i = cn_ To 1 Step -1
    d0_(i).Select
        If d0_(i).MergeArea.Count > 1 Then
            mad_ = d0_(i).MergeArea.Address
            Set d1_ = Range(mad_)
            With d1_
                z_ = .Cells(1).Value
                .UnMerge
                .ClearContents
                .Cells(1) = z_
            End With
        End If
    Next i
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = 0
End Sub