Randro Cesar Bind
O que vc pode fazer é usar a fórmula =Núm.Caract para contar a quantidade de caracter em cada célula
então usar a formula =esquerda("Texto";Núm.Caract( )-1))

Webert,

P.E.R.F.E.I.T.O

Com isso, otimizei muito o meu tempo.

Grato

Em tempo,

Agora via VBA;

Sub delultimocaract()
Dim rngcell As Range
Dim strname As String
For Each rngcell In Range("a2", Range("a1").End(xlDown))
    strname = rngcell.Value
    rngcell.Offset(0, 1).Value = Left(strname, Len(strname) - 1)
Next rngcell
End Sub