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.