QUITAR celdas combinadas para una hoja

José. Intenta con:

Sub sinCeldasCombinadas()
Dim Rng As Range, C As Range
Application.ScreenUpdating = False
Set Rng = Sheets("Resultado").UsedRange
For Each C In Rng
  If C.MergeCells = True Then C.MergeCells = False
Next
Application.ScreenUpdating = True
End Sub

Mil gracias

Puedes seleccionar todas las celdas, en le menú inicio, Combinar celdas, Separar Celdas:

O con macro:

Sub UtilizarUnmerge()
    Sheets("Resultado").Cells.UnMerge
End Sub

S a l u d o s

¡Gracias! 

no funciona, he visto la de Mario Rodríguez y va perfecta

De todas maneras gracias