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

    Dim chartObj As ChartObject

    Set chartObj = ActiveSheet.ChartObjects.Add(10, 20, 250, 120)
    chartObj.Chart.SetSourceData Worksheets("Sheet1").Range("B2:E6")
    
End Sub