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

    Dim range1 As Range
    
    Set range1 = Range("B2:D2")
    range1.MergeCells = True
    
End Sub