Sub RemoveMergeFormatAndApplyAlignment()
    Dim rng As Range
    Dim cell As Range
    
    ' Check if any cells are selected
    If Selection.Cells.Count = 1 Then
        MsgBox "Please select multiple cells to apply the formatting.", vbInformation
        Exit Sub
    End If
    
    ' Store the selected range in a variable
    Set rng = Selection
    
    ' Loop through each cell in the range
    For Each cell In rng
        ' Check if the cell is merged
        If cell.MergeCells Then
            ' Unmerge the cell
            cell.MergeCells = False
           End If
        
        ' Apply center across selection alignment
        cell.HorizontalAlignment = xlCenterAcrossSelection
    Next cell
End Sub