VBA inserta automáticamente varios gráficos, pero el segundo gráfico tiene la misma curva que el primero.
Establecer e = Rango(Rango(Celdas(441, 2), Celdas(nohang, 2)), Rango(Celdas(441, zz), Celdas(nohang, zz 2))) cambia a Establecer e = Unión(Rango(Celdas) (441, 2)), Celdas(nohang, 2)), Rango(Celdas(441, zz), Celdas(nohang, zz 2))) pruébalo
Rango(rango1, rango2) representa un objeto de rango, rango1 es la posición inicial, rango2 es la posición final, por lo que cuando m = 2, representa 2, 3, 4, 5, 6, 7, 8 columnas de datos (incluidas 2, 3, 4 y 5 columnas de datos, es decir, los datos de ventas)