Ja consegui,

Substitui C por "vaziu" usando "localizar e substituir"
E depois ao lado da coluna usei a formula
=SE(ÉNÚM(PROCURAR("D";E2));ESQUERDA(E2;PROCURAR(" ";E2)-1)*-1;E2)

Mas se tiver um macro pra isso pra alguem que ler o tópico ta ai..

Uma planilha de anexe ajudaria.

Sem ela, tenta esse código, para o que vc selecionar:

Sub Credito_Debito_GT()
For Each cell In Selection
    If Right(cell.Value, 1) = "C" Then
        cell.Value = Format(Replace(cell.Value, " C", "") * 1, "R$ 0,00")
    Else
        cell.Value = Format(Replace(cell.Value, " D", "") * -1, "R$ 0,00")
    End If
Next
End Sub