¿Se puede crear una macro que sea capaz de adicionar caracteres a una o varias celdas especificas?

Como ves hay varias formas de hacer lo mismo en Excel.

Otra forma sería:

Sub Añadir_al_color()

    MiRango = "A2:A5000"

    For Each Celda In Range(MiRango)

        Celda.Select

        ValorCelda = ActiveCell.Value

        If ActiveCell.Interior.Color = 65535 Then

            ActiveCell.Value = ValorCelda & "-1"

        End If

    Next

    Range("A2").Select

End Sub

Sub Añadir_al_color()

    MiRango = "A2:A5000"

    For Each Celda In Range(MiRango)

        Celda.Select

        ValorCelda = ActiveCell.Value

        If ActiveCell.Interior.Color = 65535 Then

            ActiveCell.Value = ValorCelda & "-1"

        End If

    Next

    Range("A2").Select

End Sub

Pongo las sentencias paso a paso para que sea más sencilla, se podrían resumir varias líneas.

Prueba la siguiente:

Sub AdicionarGuion()
  Dim i As Long
  For i = 1 To Range("A" & Rows.Count).End(3).Row
    With Range("A" & i)
      If .Interior.Color = vbYellow Then .Value = .Value & "-1"
    End With
  Next
End Sub

[hola 

macro 

Sub adicionarC()
    For i = 2 To 5000
        xcolor = Cells(i, 1).Interior.ColorIndex
        If xcolor = 6 Then Cells(i, 1) = Cells(i, 1) & "-1"
        End If
    Next i
    MsgBox "exito"
End Sub