如何获取不连续的单元格区域，并做出图表

n6x1u3v6

请问，如何获取不连续的单元格区域，并做出图表。我的最右侧，在使用中是每天不断变化的，所以每天要更新最右边的一列数值，这个数值是变量，所以变量怎么用在不连续单元格区域中出现，是我的问题，请高手帮忙。现在希望引用“B1:RS1"和”B4:RS5"的区域，由于RS是变动的，所以希望在这里将RS设为变量来更新，只希望高手提供下
这个的区域表示方法。
SetSourceData Source:=Worksheets("1月趋势监控1#").Range(Range("B1"), Cells(3, col))    ？

Sub tubiao()
Dim cht As ChartObject
Dim col As Long
On Error Resume Next
ActiveSheet.ChartObjects.Delete

On Error GoTo 0
col = Worksheets("1月趋势监控1#").Range("xfd1").End(xlToLeft).Column
With Worksheets("1月趋势监控1#").Range("B1", "xfd3")
   Set cht = ActiveSheet.ChartObjects.Add(10, 200, 500, 300)
End With
With cht
   .Name = "results"
   With .Chart
     .SetSourceData Source:=Worksheets("1月趋势监控1#").Range(Range("B1"), Cells(3, col))

     .ChartType = xlLineMarkers
     .SetElement msoElementChartTitleCenteredOverlay
     .HasTitle = True
     .ChartTitle.Text = Range("A2") & "投入趋势图"
         End With
End With
End Sub

n6x1u3v6

为方便看将图片上传