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

    Dim range1 As Range
        
    Set range1 = Range("C2")
    range1.Insert Shift:=xlShiftToRight

    Range("C3:D3").Insert Shift:=xlShiftDown
    
End Sub