Attribute VB_Name = "testcellmerge3"
Sub ƒeƒXƒg()

    Dim range1 As Range

    Set range1 = Range("C2").MergeArea
    range1.HorizontalAlignment = xlCenter
    
    Range("B3").MergeArea.Value = "AŽx“X"
    Range("B6").MergeArea.Value = "BŽx“X"

End Sub