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

    Dim chartObj As ChartObject
    Dim chart1 As Chart

    Set chartObj = ActiveSheet.ChartObjects(1)
    Set chart1 = chartObj.Chart

    chart1.SetSourceData Worksheets("Sheet1").Range("B2:E6")
    
End Sub