VBA - диаграммы Dynami c с двумя диапазонами

Question

У меня есть действительно полезный кусок кода, с которым мне помогло сообщество Stackoverflow, которое помогает пометить категории в динамическом c графике.

With Sheets("Property Details").ChartObjects("Year").Chart
    .SetSourceData Source:=Rng1
    .FullSeriesCollection(1).Name = "='" & ShName & "'!$S$1"                     '≙ "=DynamicCharts!$S$1"
    .FullSeriesCollection(1).Values = "='" & ShName & "'!$S$2:$S$" & LastRow     '≙ "=DynamicCharts!$S$2:$S$" & LastRow
    .FullSeriesCollection(1).XValues = "='" & ShName & "'!$R$2:$R$" & LastRow    '≙ "=DynamicCharts!$R$2:$R$" & LastRow
End With

Однако у меня также есть некоторые графики, которые используют два диапазона, и я не смог включить этот кусок кода в мои другие диаграммы, без ошибок и ошибок. Мне было интересно, сможете ли вы взглянуть на приведенный выше код и помочь вставить его в следующий код:

With Sheets("DynamicCharts") 
     LastRow = .Range("BZ" & .Rows.Count).END(xlUp).row 
     Set Rng1 = .Range("BZ2:BZ" & LastRow & ", CC2:CC" & LastRow) 
     Set Rng2 = .Range("CD2:CD" & LastRow) 
End With 
With Sheets("Property Details").ChartObjects("Roof").Chart 
     .ChartType = xlColumnClustered 
     .SetSourceData Source:=Rng1 
     .SeriesCollection(1).Name = "Value" 
     With .SeriesCollection.NewSeries 
          .ChartType = xlLine 
          .Values = Rng2 
          .AxisGroup = 2 
          .Name = "Price" 
     End With 
 End With

Спасибо