Attribute VB_Name = "testcellalign5"
Sub ƒeƒXƒg()
    
    Range("A2:C3").MergeCells = True
    Range("A2").HorizontalAlignment = xlCenter
        
    Range("B4").MergeCells = False
        
End Sub