Na falta de um modelo e alguns detalhes, vou por suposição:

Na rotina abaixo estou considerando que os dados estão na Plan1, iniciando em "A1"

Sub sPlit_Valores()
    Dim n
    Dim i As Integer, nIndex As Integer
    Dim celula
    Dim UltimaLinha As Long
    Dim iLin
    Dim sCol
    
    iLin = 1
    
    UltimaLinha = Sheets("Plan1").Cells(Cells.Rows.Count, 1).End(xlUp).Row
    
    Set srg = Range("A1" & ":" & "A" & UltimaLinha)
    
    For Each x In srg
        sCol = 2
        celula = x
    
        With celula
          
          nIndex = 0
          n = Split(celula, " x ")
          
             For i = 0 To UBound(n)
              
                 If IsNumeric(n(i)) Then
                      nIndex = nIndex + 1
                      id = Round(n(i), 2)
                      
                      Cells(iLin, sCol).Value = id
                      sCol = sCol + 1
                 End If
            
             Next i
    
            iLin = iLin + 1
    
        End With
    
    Next
    
End Sub

[]s

Uma outra possibilidade é utilizar a função "Texto para Colunas" no menu Dados.
Selecione a coluna A, va em Dados -->Texto Para colunas/ na tela que se abre selecione o Radio ~Delimitado, clique em avançar, em delimitadores va em Outros e digite x; clique em concluir

Vc tb poderia utilizar fórmulas um pouco mais sofisticadas:

Coluna B
=ARRUMAR(ESQUERDA(SUBSTITUIR(A2;"x";REPT(" ";20));10))

Coluna C
=ARRUMAR(DIREITA(SUBSTITUIR(A2;"x";REPT(" ";20));30))

Muito obrigado a todos, uma coisa tão simples kk

valeu