combinar graficas

hola grupo !!

la siguiente macro esta sion depurar pero es para ilustrar mi problema:
tengo datos de ingreos y egresos (adm y oper) en las columnas b,c,d
respectivamente, quiero combinar graficos agrupados con apilados es decir
quiero que en un solo grafico me mustre los datos de la columna b (ingresos)
y los datos de las columnas c y d aplilados y estas dos que queden agrupadas
es esto posible?
que resulte un grafica mas o menos asi...
iiiiii eoeoeoe
iiiiii eoeoeoe
iiiiii eoeoeoe
iiiiii eaeaeae
iiiiii eaeaeae
iiiiii eaeaeae
iiiiii eaeaeae
iiiiii eaeaeae

donde iiiiii ingresos
eoeoeoe egresos operativos
eaeaeae egresos administativos

la macro me hace los dos graficos pero separados

Sub graficar()
'
Range("B1:D6").Select
Charts.Add
ActiveChart.ChartType = xl3DColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Hoja1").Range("B1:D6"),
PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Hoja1"
With ActiveChart
.HasTitle = False
.Axes(xlCategory).HasTitle = False
.Axes(xlSeries).HasTitle = False
.Axes(xlValue).HasTitle = False
End With
ActiveWindow.Visible = False
Windows("Libro2").Activate

Range("C1:D6").Select
Charts.Add
ActiveChart.ChartType = xl3DColumnStacked
ActiveChart.SetSourceData Source:=Sheets("Hoja1").Range("C1:D6"),
PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Hoja1"
With ActiveChart
.HasTitle = False
.Axes(xlCategory).HasTitle = False
.Axes(xlSeries).HasTitle = False
.Axes(xlValue).HasTitle = False
End With
End Sub