#Select your cells and run this code and it will un-merge all the cells from the selection with your loosing data.

Sub UnmergeCells()

Selection.UnMerge

End Sub