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

    Dim range1 As Range
        
    Set range1 = Range("B2:C5")
    range1.Copy
    
    Range("E2").Select
    
    ActiveSheet.Paste Link:=True
    
    Application.CutCopyMode = False

End Sub