Sub es()
Dim i As Long
Application.ScreenUpdating = False
For i = 2 To Cells(Rows.Count, 14).End(xlUp).Row
If Cells(i, 14) = "Service1" Then Range(Cells(i, 14), Cells(i, 17)).Interior.ColorIndex = 55
If Cells(i, 14) = "Service2" Then Range(Cells(i, 14), Cells(i, 17)).Interior.ColorIndex = 10
If Cells(i, 14) = "Service3" Then Range(Cells(i, 14), Cells(i, 17)).Interior.ColorIndex = 6
If Cells(i, 14) = "Service4" Then Range(Cells(i, 14), Cells(i, 17)).Interior.ColorIndex = 38
If Cells(i, 14) = "Service5" Then Range(Cells(i, 14), Cells(i, 17)).Interior.ColorIndex = 44
If Cells(i, 14) = "Service6" Then Range(Cells(i, 14), Cells(i, 17)).Interior.ColorIndex = 2
Next i
End Sub