VBA 编写折线图

由于不想一个一个的生成折线图，折腾了好久，终于实现了一个简单的需求，下面就是要写循环了，我太难了，第一次接触，网上资料太少，找的我发疯

Sub 宏1()
'
' 宏1 宏
'

'

    Range("O2:Y2,E2:N2").Select
    ActiveSheet.Shapes.AddChart2(240, xlXYScatterSmooth).Select //插入折线图
    ActiveChart.SetSourceData Source:=Range("Sheet2!$O$2:$Y$2")
    ActiveChart.Axes(xlValue).Select //X轴进入编辑
    
    ActiveChart.SeriesCollection(1).Select

    ActiveChart.SeriesCollection(1).ApplyDataLabels //数据标签
    ActiveChart.SeriesCollection(1).XValues = "=Sheet2!$E$2:$N$2"// 设置横坐标
    
    
End Sub