Carácter no válido VBA
arr = Array( xrow - 1, "Zhang Jiao", "Mujer", #8/7/1987#, #1/9/2010#, "Nueva contratación en 10 años") p >
Cambiar a:
arr = Array(xrow - 1, "Zhang Jiao", "Mujer", #8/7/1987#, #1/9/2010#, "10 años Nuevo truco")
Las comas en su expresión son de ancho completo y deben ser de medio ancho.
#7/8/1987#,
Cambiado a:
#7/8/1987#,