VBA, начиная серию в графике

Question

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

Проблема в том, что пунктирные линии должны начинаться 20 февраля и проходить до 20 мая, но они начинаются в самой первой точке графика 19 марта. Есть ли способ или способ указать, где вы хотите начать серию или что-то подобное, чтобы это исправить?

Sheets("DATA").Activate
Set rangex = Worksheets("DATA").Range(Cells(lRow - 14, 1), Cells(lRow, 1))
Set rangey = Worksheets("DATA").Range(Cells(lRow - 14, 2), Cells(lRow, 2))
Set rangey3 = Worksheets("DATA").Range(Cells(lRow - 14, 5), Cells(lRow, 5))
Set rangey4 = Worksheets("DATA").Range(Cells(lRow - 3, 10), Cells(lRow, 10))
Set rangey2 = Worksheets("DATA").Range(Cells(lRow - 3, 11), Cells(lRow, 11))

Sheets("Report").Activate

ActiveSheet.Shapes.AddChart2(332, xlLineMarkers).Select
With ActiveChart
.SetSourceData Source:=rangey3
.FullSeriesCollection(1).Name = "Demand"
.SeriesCollection(1).XValues = rangex
.SeriesCollection.NewSeries
.SetElement (msoElementLegendBottom)
.ChartTitle.Delete

With .SeriesCollection(2)
    .Name = "Demand (Forecast)"
    .Values = rangey2
    .Format.Line.Visible = msoTrue
    .Format.Line.DashStyle = msoLineSysDot
End With

    .SeriesCollection.NewSeries
With .SeriesCollection(3)
    .Name = "Production Unit"
    .Values = rangey
End With

    .SeriesCollection.NewSeries
With .SeriesCollection(4)
    .Name = "Production Unit (Forecast)"
    .Values = rangey4
    .Format.Line.Visible = msoTrue
    .Format.Line.DashStyle = msoLineSysDot
End With
End With
End Sub