Help editing VBA code

Hello everyone,

I need help modifying the below code. Currently If the value is Blue in one cell, then it puts the word Color in another cell. How do I add onto the code to make it look for Green and Black also?

So if Blue, Green, or Black then the output is Color

    'Setup for Speed
    '=========================
        Application.ScreenUpdating = False
        Application.Calculation = xlCalculationManual
        
    '=========================
    'Do Work
    '=========================
        For i = 1 To LastRow
            If Range("K" & i).Value = "Blue" Then Range("R" & i).Value = "Color"
        Next i
    
    '=========================
    'Shut down
    '=========================
        Application.ScreenUpdating = True
        Application.Calculation = xlCalculationAutomatic

Appreciate any help!

Try:

Sub test()
    Dim Lastrow As Long
    Lastrow = Range("K1").CurrentRegion.Rows.Count
    For i = 1 To Lastrow
        If Range("K" & i).Value = "Blue" Then
            Range("R" & i).Value = "Color"
        ElseIf Range("K" & i).Value = "Green" Then
            Range("R" & i).Value = "Color"
        ElseIf Range("K" & i).Value = "Black" Then
            Range("R" & i).Value = "Color"
        End If
    Next i
End Sub

Or this:

Sub test()
    Dim Lastrow As Long
    Lastrow = Range("A1").CurrentRegion.Rows.Count
    For i = 1 To Lastrow
        If Range("K" & i).Value = "Blue" Or Range("K" & i).Value = "Green" Or Range("K" & i).Value = "Black" Then
            Range("R" & i).Value = "Color"
        End If
    Next i
End Sub