Macro para actualizar una gráfica de acuerdo al producto o categoria

Macro para actualizar una gráfica de acuerdo al producto de una Base de datos

En la base de datos se crea un columna que muestre por cada dato la fila a la que pertenece bajo esta formula=FILA(A5)

Luego, Se escoge un celda y se coloca esta fórmula =CONSULTAV(C6;Ecuador!$A$5:$B$34;2;FALSO) que relación la fila con el producto

En el siguiente código Se cambia el nombre de la hoja"Ecuador" por el nombre de la base de datos de búsqueda y se establece la posición donde se encuentra los datos
donde R (filas ) y C (columnas) por ejemplo: R1C1 (posición A1)

Además con este códigopuedes colocarle el nombre a la gráfica que relacione con el producto y que actualice los parámetros de escala si se necesita.

Sub Grafica1()
'
' Gráfica 1 Macro
'
Application.ScreenUpdating =False

'insertar titulo de la Gráfica

Sheets("indice").Select
ValorTitulo = Range("C6").Value
Fila = Range("Fila").Value

Sheets("Producto 1").Visible = TrueSheets("Producto 1").Select
ActiveChart.ChartTitle.Text = ValorTitulo

'ActiveChart.ChartArea.Select
ActiveChart.PlotArea.Select
ActiveChart.ChartType = xlLine'ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Values = _
"=Ecuador!R" & Fila & "C5,Ecuador!R" & Fila & "C15,Ecuador!R" & Fila & "C26,Ecuador!R" &Fila & "C38"
'ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).Values = _
"=Ecuador!R" & Fila & "C8,Ecuador!R" & Fila & "C19,Ecuador!R"& Fila & "C31,Ecuador!R" & Fila & "C44"
'ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(3).Values = _
"=Ecuador!R" & Fila &"C13,Ecuador!R" & Fila & "C24,Ecuador!R" & Fila & "C36,Ecuador!R" & Fila & "C49"

ActiveChart.SeriesCollection(3).Select
ActiveChart.SeriesCollection(3).AxisGroup = 2...