录制的宏在一个表中可以正裳运用，其他表不行，请帮忙改一下

东菊

Sub Macro2()
'
' Macro2 Macro
' 项目分布
'
'
    Range("A3:B14").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range("$A$3:$B$14")   因为表的格式都一样，大小不一样，运行结果就不对了，而且以后也会增加减少，这里要是能成不论大小都能运用
    ActiveChart.ApplyChartTemplate ( _
        "C:\Users\dell\AppData\Roaming\Microsoft\Templates\Charts\图表1.crtx")
End Sub
Sub Macro1()
'
' Macro1 Macro
' 建图表
'
'
    Range("C1:K2").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range("$C$1:$K$2")
    ActiveChart.ApplyChartTemplate ( _
        "C:\Users\dell\AppData\Roaming\Microsoft\Templates\Charts\图表1.crtx")
End Sub