Colega Bom dia! Veja se é isso:

Sub Remover_Espaço()
Dim ul As Long
ul = Plan2.Range("B" & Rows.Count).End(xlUp).Row
For Each cel In Plan2.Range("B1:B" & ul)
cel.Value = Trim(cel.Value)
Next
MsgBox "Feito!", vbExclamation
End Sub

xlarruda, bom dia.

Obrigado, pela resposta, mas infelizmente não deu certo.

Eu já tinha tentando utilizar a função "Trim".

Tentei também "Replace" e "Application.WorksheetFunction.Trim(Cells(a, b))" ... mas nenhuma deu certo.

Cara tem Bruxaria ai...

Experimente apagar o ultimo carácter vazio e veja o que acontece..

Bom dia, amigos

É o caractere de código ascII 09 (tabulação horizontal) que vcs devem localizar e substituir. Pode não parecer, mas na verdade ele não está no final das strings e sim é o 1º caractere delas.

Colega Edson obrigado pela observação , realmente não havia percebido isso.

Colega celsoyano,veja se isso resolve:

Sub Remover_Espaço()

Dim ul As Long
ul = Plan2.Range("B" & Rows.Count).End(xlUp).Row
    For Each cel In Plan2.Range("B1:B" & ul)
        If cel.Value <> "" Then
            Select Case Asc(Left(cel.Text, 1))
                    Case Is <= 9
                        cel.Value = Mid(cel.Text, 2, Len(cel.Text))
                        cel.Value = Trim(cel.Text)
                                                          
                    Case Is > 9
                       cel.Value = Trim(cel.Text)
            
            End Select
        End If
    Next
MsgBox "Feito!", vbExclamation
End Sub

Colega Edson, que método você usou para achar o caracter "intruso"??

Obrigado EdsonBR e xlarruda

O último código deu certinho!

Planilha com a solução está em anexo.

Perfeito.
Muito Obrigado.