アクティブシートの結合されたセルの結合を解除して，すべてのセルの値を結合元のセルの値で埋めます。

Unmerge.bas

Option Explicit

' アクティブシートの結合されたセルの結合を解除して，すべてのセルの値を結合元のセルの値で埋めます。
Public Sub Unmerge()
   Dim OuterCell As Variant
   Dim InnerCell As Variant
   Dim Value As Variant
   Dim MergeArea As Object
   Dim Updating As Boolean  ' 現在のスクリーン更新状態
   
   Updating = Application.ScreenUpdating
   ' スクリーン更新停止
   Application.ScreenUpdating = False

   For Each OuterCell In ActiveSheet.UsedRange
      If OuterCell.MergeCells Then
         Value = OuterCell.Value
         Set MergeArea = OuterCell.MergeArea
         OuterCell.MergeCells = False
         For Each InnerCell In MergeArea.Cells
            InnerCell.Value = Value
         Next InnerCell
      End If
   Next OuterCell
   Set MergeArea = Nothing

   ' スクリーン更新状態を元に戻す
   Application.ScreenUpdating = Updating
End Sub