Isso continua com a minha pergunta emexcel vba selecione o penúltimo caractere em uma célula

Estou escrevendo uma macro para inserir uma marca vermelha (ou seta para baixo) após o texto existente em uma célula.

O código que encontrei para inseri-lo remove a formatação de caracteres personalizada do conteúdo original da célula (negrito sublinhado em vermelho etc.).

ActiveCell.FormulaR1C1 = ActiveCell & " P "

Não consigo descobrir como inserir os caracteres eReter, manter, guardar os formatos de caracteres preexistentes na célula (algum texto em vermelho, outro em negrito e outro texto podem ser sublinhados.)?

Eu encontrei uma macro quesubstitui caracteres mantendo os formatos existentes e se perguntando se isso pode ser alterado paraAdicionar, acrescentar o carrapato e os espaços no final da célula e formatá-los?

Encontrei outra macro que copia o formato de cada caractere para uma nova célula depois de copiar o valor, emMesclar o conteúdo de 2 células do Excel mantendo intacto o formato de caractere (usando VBA), se puder ser alterado para reformatar os caracteres na célula original ... Estou um pouco perplexo!

Ou talvez haja uma maneira ainda mais simples?

Qualquer assistência apreciada com gratidão.

=============== (A macro de substituição (verson editado deImpedir a reformatação de caracteres ao alterar a linha na célula:)

    STRINGTODELETE = InStr(1, cell.Value, " ") 'define + find string to delete, ANYWHERE in cell (TODO inputbox)
    STRINGTODELETE_LENGTH = 1  'define length of string to delete (TODO get length from input)

    Do Until STRINGTODELETE = 0 'loop within cell until no more occurences found
        cell.Characters(STRINGTODELETE, STRINGTODELETE_LENGTH).Delete 'remove found occurrence of SPECIFIED STRING
        cell.Characters(STRINGTODELETE, 0).Insert Chr(10) 'insert line break where SPECIFIED STRING used to be