Esto continúa de mi pregunta enExcel vba seleccionar penúltimo carácter en una celda

Estoy escribiendo una macro para insertar una marca roja (o flecha hacia abajo) después del texto existente en una celda.

El código que encontré para insertarlo elimina el formato de caracteres personalizado del contenido original de la celda (negrita, subrayado, rojo, etc.).

ActiveCell.FormulaR1C1 = ActiveCell & " P "

No puedo entender cómo insertar los caracteres yconservar los formatos de caracteres preexistentes en la celda (algunos textos en rojo, otros en negrita, otros textos pueden estar subrayados).

Encontré una macro quereemplaza personajes que conservan los formatos existentes y se preguntan si esto podría cambiarse aañadir la marca y los espacios al final de la celda, y formatearlos?

Encontré otra macro que copia el formato de cada carácter a una nueva celda después de copiar el valor, enCombinar contenidos de 2 celdas de Excel manteniendo el formato de caracteres intacto (usando VBA), si pudiera modificarse para volver a formatear los caracteres en la celda original ... ¡Estoy un poco perplejo!

¿O tal vez hay una manera aún más simple?

Cualquier ayuda agradecidamente apreciada.

=============== (La macro de reemplazo (versión editada deEvitar el reformateo de caracteres al cambiar la línea en la celda:)

    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