Pasar datos de una celda a columnas

Tengo varios datos los cuales están ordenados en forma vertical en una celda, estoy buscando la forma de pasar cada dato a una celda, estoy intendando con una macro creando una variable array pero no se como pasar los valores de la celda al arreglo, para después pegarlos en las diferentes celdas.

Anexo imagen con un ejemplo de como tengo los datos en la celda (A2) y como los dengo que pasar (B2:J2); los datos que comparto en al imagen no son reales, los datos de mi archivo varían en cuanto a cantidad de caracteres e información.