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

    Dim chart1 As Chart

    Set chart1 = Charts.Add
    
    chart1.SetSourceData Worksheets("Sheet1").Range("B2:E6")
    chart1.ChartType = xlLineStacked
    
End Sub