Esta fácil
Solo cambia
ShowChart
Array(arrB), Array("P1", "P2", "P3", "P4", "P5", "P6", "P7"), "Título del Gráfico", "X Label", "Y"
Por
ShowChart por
Split(arrB), Array("P1", "P2", "P3", "P4", "P5", "P6", "P7"), "Título del Gráfico", "X Label", "Y"
Saludos
