求助：用vba生成图表时，图表数据区域的语句出了问题

MENGYIN1986

领导让我整理数据，并根据数据生成图表。所以买了《别怕，excel vba其实很简单》，看后受益匪浅。但是，在做表的过程中还是遇到一个问题，始终无法解决。图表的数据区域（红字标注的代码）总是出错。以下是我编的代码。如果不方便看的话我也传上个附件了。请高手多多指点 。
Sub lie()
    Dim a As Byte, B As Byte, c As Byte, mwl As Byte, mwh As Long, qsh As Long
        a = Worksheets("sheet1").Range("M5")
        B = Worksheets("sheet1").Range("M6")
        c = Worksheets("sheet1").Range("M7")
            mwl = 3 * a + B - 2                     '算出末尾单元格列数
            
            mwh = Worksheets("新建商品房住宅").Range("A1").CurrentRegion.Rows.Count   '算出末尾单元格行数
            

Select Case c                                                                     '根据选择的时间段不同确定起始单元格地址
    Case Is = 1
        qsh = mwh - 7
    Case Is = 2
        qsh = mwh - 31
    Case Is = 3
        qsh = mwh - 100
End Select

Charts.Add                                                                                                           '增加图表
ActiveChart.SetSourceData Source:= _
Worksheets("新建商品房住宅").union.Range(Cells(qsh, "a"),Cells(mwh, "a")),Range(Cells(mwh, mwl),Cells(mwh, mwl))
_, PlotBy:=xlColumns  '图表数据区域
ActiveChart.ChartType = xlLineStacked                                                                                 '图表类型
ActiveChart.Select
End Sub

MENGYIN1986

没人会？

MENGYIN1986

问题已解决 ，过两天会把整理好的文件传上来，供大家参考和指教。

myschool12

这个问题的解决方案可不可以给我一份啊，我急需要