Olá jonasjtg,

Use este código.

Set Ws = ThisWorkbook.ActiveSheet

For Ini = 1 To Ws.Cells(Rows.Count, "A").End(xlUp).Row
    Ws.Range("B" & Ini) = _
    Mid(Ws.Range("A" & Ini), _
    InStr(Ws.Range("A" & Ini), "x") - 1 + 1, _
    Len(Ws.Range("A" & Ini))) & _
    Left(Ws.Range("A" & Ini), _
    InStr(Ws.Range("A" & Ini), "x") - 1)
Next

Deu certo mas quando não tem X da erro!
Exemplo:
118x
120
119xx

Tente isso apos essa linha

Set Ws = ThisWorkbook.ActiveSheet

Acrescente essa

On Error Next

Apareceu a mensagem!

Erro de compilação:
Era esperado: Goto ou Resume fiz dessa forma.

Sub teste()

Set Ws = ThisWorkbook.ActiveSheet

On Error Next

For Ini = 1 To Ws.Cells(Rows.Count, "A").End(xlUp).Row
Ws.Range("B" & Ini) = _
Mid(Ws.Range("A" & Ini), _
InStr(Ws.Range("A" & Ini), "x") - 1 + 1, _
Len(Ws.Range("A" & Ini))) & _
Left(Ws.Range("A" & Ini), _
InStr(Ws.Range("A" & Ini), "x") - 1)
Next
End Sub

Verdade

Faltou o Resume

On Error Resume Next

Deu certo mas não copio o numero sem X
exemplo
119x
120
121xx
Resultado
x119
121xx

ele não copio o 120

Sem ter como testar fica dificil ajudar

Poste o arquivo que esta usando.

Muito Obrigado pela ajuda MPrudencio!

E o mesmo da 1 mensagem que enviei.
Só tinha esquecido de mencionar os detalhes acima campo sem X e copiar também o campo sem X.
Mas vou posta outro modelo completo.

Obs.: Desculpa por estar atrapalhando algo.

Desculpe eu nao vi a planilha no primeiro post mas troque o codigo acima por este

Sub teste()

Dim linha As Long
Dim ulinha As Long
Set ws = ThisWorkbook.ActiveSheet
linha = 1
ulinha = ws.Range("a" & Rows.Count).End(xlUp).Row

On Error Resume Next
For Ini = 1 To ws.Cells(Rows.Count, "A").End(xlUp).Row
ws.Range("B" & Ini) = _
Mid(ws.Range("A" & Ini), _
InStr(ws.Range("A" & Ini), "x") - 1 + 1, _
Len(ws.Range("A" & Ini))) & _
Left(ws.Range("A" & Ini), _
InStr(ws.Range("A" & Ini), "x") - 1)
Next

For a = linha To ulinha

If ws.Cells(linha, 2).Value = "" Then

ws.Cells(linha, 2).Value = ws.Cells(linha, 1).Value

End If
linha = linha + 1
Next

End Sub

Resultado na coluna 'D', a partir de 'D1'

Sub MudaXis()
 Dim c As Range, k As Long, m As Long
  For Each c In Range("A1:A" & Cells(Rows.Count, 1).End(3).Row)
   k = Len(c) - Len(Replace(c, "x", ""))
   Cells(m + 1, 4) = Application.Rept("x", k) & Replace(c, "x", "")
   m = m + 1
  Next c
End Sub

Só ajustando a rotina do leonardo e do Marcelo, sem precisar do "On Error" :

Sub InverteNumTexto()

    Dim linha As Long
    Dim ulinha As Long
    
    Set ws = ThisWorkbook.ActiveSheet

    linha = 1
    ulinha = ws.Range("a" & Rows.Count).End(xlUp).Row

    For Ini = 1 To ws.Cells(Rows.Count, "A").End(xlUp).Row
        'Verifica se é numerico
        If IsNumeric(ws.Range("A" & Ini)) Then
            
            ws.Range("B" & Ini) = ws.Range("A" & Ini)
        
        Else
        
            ws.Range("B" & Ini) = _
            Mid(ws.Range("A" & Ini), _
            InStr(ws.Range("A" & Ini), "x") - 1 + 1, _
            Len(ws.Range("A" & Ini))) & _
            Left(ws.Range("A" & Ini), _
            InStr(ws.Range("A" & Ini), "x") - 1)
        
        End If
        
    Next

End Sub

[]s

Muito Obrigado!

Leonardo,MPrudencio,Osvaldomp e Mauro Coutinho.
Vcs são feras!

Só que surgiu algo que achei que não ia precisar mas vou precisar. Se poderem me ajudar agradeço muito.

Seguindo o modelo acima exemplo:
ISSO E SÓ PARA NUMEROS NÃO E PRA 11X
A regra e 4 casas decimais então ele verifica a célula sem tem 4 casas se tiver duas casas preenchida adiciona 2 zeros se for 3 casas adiciona 1 zero se for 1 casa ele adiciona 3 zeros.
1=0001
20=0020
212=0212

Isso muda tudo....

O codigo muda completamente

Qdo se pede um exemplo se espera que o mesmo seja igual a planilha original.

Mas enfim vai ficar pra depois.

Precisa ser com VBA, não pode ser por Formula ?

=TEXTO(A1;"0000")
ou
=REPT(0;4-NÚM.CARACT(A1))&A1

ou pode formatar a celula com o tipo "personalizado" com 4 zeros "0000" ( sem as aspas)

Mas se tiver mesmo que ser com VBA, pode utilizar :

Sub Completa_Zero_A_Esquerda()
    
    Dim c As Range, sLin As Long
    
    sLin = 1
    
    For Each c In Range("A1:A" & Cells(Rows.Count, 1).End(3).Row)
        
        'Formato para 4 zeros
        Cells(sLin, 4).NumberFormat = "0000"
        
        'Copia para Col D o numero ja formatado com zeros
        Cells(sLin, 4) = Application.WorksheetFunction.Rept("0", 4 - Len(c)) & c
        
        sLin = sLin + 1
         
    Next c
    
End Sub

[]s