Separar un numero en columnas en excel

Public Sub separar_num()
    Dim texto As String
    Dim rango As Range
    texto = Range("A1")
    Set rango = Range("B1")
    Dim i As Integer
    For i = 1 To Len(texto)
        rango.Offset(0, i - 1) = Mid(texto, i, 1)
    Next i
End Sub

El A1 es donde tienes el texto

El B1 es donde quieres que empiece a poner los números hacia la derecha.

Si por casualidades de la vida, quieres que lo haga de arriba a abajo. Sustituye:

rango.Offset(0, i - 1) por rango.Offset( i - 1,0)

También podría servirte:

Sub Macro1()
  [b1].Resize(13) = Evaluate("transpose(mid(a1, column(a:m), 1))")
End Sub