Identificar Celdas Combinadas, "Descombinarlas", y rellenar las celdas vacías

Te mando mi solución, sigue estas instrucciones:

-Marca con el ratón todo el rango de celdas que quieres analizar y DESPUÉS ejecuta esta macro:

Sub ejemplo()
'por luismondelo
For Each celda In Selection
If celda.MergeCells Then
celda.UnMerge
End If
Next
For Each celda In Selection.SpecialCells(xlCellTypeBlanks)
celda.Value = celda.Offset(-1, 0).Value
Next
End Sub

recuerda finalizar