Cacher is the code snippet organizer for pro developers

Sub UnmergeCells()
Dim Cell As Range
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'written by Angelina Teneva, September 2016
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

For Each Cell In ActiveSheet.Range("A2:AS4100")
    If Cell.MergeArea.Address <> Cell.Address Then Cell.UnMerge

Next Cell

End Sub