För att sätta färger kan du använda en kod  stil med:

Range("C1,C7,D8").Interior.Color = vbRed

Eftersom du sskall göra flera saker med samma range så kan du använda "With" och lägga allt innom with/end with

Private Sub CommandButton1_Click()

   With Range("C1,C7,D8")

        .Value = Range("A2").Value

        .Interior.Color = vbRed

   End With

   With Range("E2,E3,E14,K5")

        .Value = Range("A3").Value

        .Interior.Color = vbYellow

   End With

End Sub

Du kan ange färgerna exakt med koden, eller använda konstanter (som jag gjorde)

https://learn.microsoft.com/en-us/off...

********************************************************************

För övrigt rekomenderar jag starkt att du använder maktoinspelaren: 

Utvecklare->Spela in makro

Då kan du t.ex ändra färg på en cell och se hur koden ser ut.

  denna text blir röd Private Sub CommandButton1_Click() när jag skriver with

 Hej hej

Antar att din kod för att ta bort kod är något i still med:

rng.entirerow.delete   (tar bort hela raden), alternativt har du selection.entirerow.delete (inspelad kod burkar se ut så)

Då kan du byta till 

rng.entirerow.clearcontents (tar endast bort det som är skrivet i raden)

Annars så får du återkomma med kodraden som tar bort raden, så kan jag återkoppla hur du ska göra istället.

 här är min kod den tar bort färgen i cellen som jag inte vill bara namnet i cellen

Private Sub CommandButton6_Click()

Worksheets.Range("p5:p19").ClearFormats

 Range("p5:p19").ClearContents

End Sub