Доброе время суток.
Нашел на здешнем форуме такой код
Sub Button2_Click()


Worksheets(1).ChartObjects(1).Activate

ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A" & Range("D5") & ":C" & Range("H5")), PlotBy _
:=xlColumns

End Sub

В ячейках D5 и H5 на листе указана формула, которая позволяет задавать нужный диапазон значений для оси Х в рядах от А до С. На графике отображаются соответствено Series в заданном деапазоне (B и С - получается 2). Проблема в том, что они отображаются все вместе, а можно ли сделать так, чтобы они отображались на одном и том же графике по отдельности опять же в указанном диапазоне оси Х?
Если что-то из написанного кому-нибудь понятно, то прошу поделиться соображениями.

Нашел, вроде работает.

Sub AddNewSeries()

Worksheets(1).ChartObjects(1).Activate

With ActiveChart.SeriesCollection.NewSeries

.Name = ActiveSheet.Range("C1")
.Values = ActiveSheet.Range("C" & Range("D5") & ":C" & Range("H5"))
.XValues = ActiveSheet.Range("A" & Range("D2") & ":A" & Range("H5"))

End With


With ActiveChart

Do Until .SeriesCollection.Count = 1
.SeriesCollection(1).Delete
Exit Do

Loop

End With

End Sub