Добавить несколько диапазонов в объекте диаграммы

Question

Я хочу добавить несколько диапазонов к объекту диаграммы, чтобы иметь диаграмму с несколькими рядами данных.Как и в коде ниже, мне нужно добавить rng2, rng3 на том же графике.Необходимо сделать это с этим конкретным форматом кодирования.Ваша помощь очень ценится.

Sub plt()
Set rng1 = ActiveSheet.Range("A:A,B:B")
With ActiveSheet
  .Shapes.AddChart
  Set objChrt = .ChartObjects(.ChartObjects.Count)
  Set chrt = objChrt.Chart
  With chrt
    .ChartType = xlXYScatterSmoothNoMarkers
    .SetSourceData Source:=rng1
 End With
End With   
End Sub