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

    Dim range1 As Range
        
    Set range1 = Range("B2:C5")
    range1.Cut Destination:=Range("B3")
    
End Sub