Crear grafico de barras dentro de una hoja de excel con VBA

[LOD_Fredy]

Ya supe generar la grafica y esta facil, ahora tengo otro problema por solucionar, primero vere si puedo resolverlo o que llego a hacer.

Este es el codigo que use para generar las graficas:

Código:

Sub MACROPRUEBA()
    Sheets("ENE-FEB").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Range("BM1:BQ1,BM3:BQ7")
    '='MAY-JUN'!$EI$1:$EM$1,'MAY-JUN'!$EI$3:$EM$7
    Sheets("MAR-ABR").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Range("CW1:DA1,CW3:DA7")
    Sheets("MAY-JUN").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Range("EI1:EM1,EI3:EM7")
    Sheets("JUL-AGO").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Range("CZ1:DD1,CZ3:DD7")
    Sheets("SEP-OCT").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Range("BC1:BG1,BC3:BG7")
    Sheets("NOV-DIC").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Range("T1:X1,T3:X7")
End Sub