Вам придется перевести это из VBA в ваш собственный синтаксис.
Метод Add объекта SeriesCollection выглядит следующим образом:
Function Add(Source, [Rowcol As XlRowCol = xlColumns],
[SeriesLabels], [CategoryLabels], [Replace]) As Series
Вы хотите добавить только одну серию, а не две, как вы сделали. Таким образом, вам нужно определить диапазон на основе объединения ваших двух диапазонов. В VBA:
Set ChartRange = Union(ChartRange1, ChartRange2)
Тогда вы, вероятно, можете использовать (в своем синтаксисе)
seriesCol.add(chartRange, misValue, misValue, True, misValue);
где я использовал True для значения CategoryLabels, чтобы заставить Excel использовать первый столбец в качестве значений X.
Иногда в VBA с новым графиком это работает не совсем правильно. В этом случае вам необходимо добавить ряд, используя значения Y, а затем применить значения X. Первая строка - ваш синтаксис, вторая - чистый VBA.
seriesCol.add(chartRange2, misValue, misValue, misValue, misValue);
seriesCol(1).XValues = ChartRange1