Como puedo agregar una serie extra al siguiente código de gráficos:

Sub Actualiza1()
Dim Fila As Byte, Col As Byte, Dato
With Spreadsheet2
For Col = 3 To 5
For Fila = 1 To 13
Dato = Worksheets("Hoja1").Cells(Fila, Col)
.Cells(Fila, Col) = Dato
Next
Next
End With
With ChartSpace2: .Clear
Set Cc = .Constants
Set .DataSource = Me.Spreadsheet2
.Charts.Add
With .Charts(0)
.Type = Cc.chChartTypeColumnClustered
.SetData Cc.chDimCategories, 0, "a2:a5"
.SetData Cc.chDimSeriesNames, 0, "e1"
.SeriesCollection(0).SetData Cc.chDimValues, 0, "d2:d13"
End With
End With
End Sub

Lo que requiero es que me cree un gráfico de dos barras, comparando la oferta con la demanda en un mismo gráfico, me ha sido imposible por favor ayudenme