Excel vba aumenta el número de filas a través de espacios

¿Opción? ¿Subtítulo explícito

? x()

¿Atenuado? Ah, ah? I,? j? t

arr? =?range(cell(1,?1),?cell(row.count?1).end(xlUp))

j? =?1

¿Para qué? ¿I? =?1?¿Adónde ir? Deuda

¿Para qué? ¿Todos? t? ¿Está ahí? split(arr(I,1),?"?")

celda(j,?1)?=?t

j? =?j? ?1

¿Siguiente? t

¿Siguiente? Yo

¿Terminar? Antes de la subejecución:

Después de la subimplementación: