Cell Shading Macro Depending on Text

Sub test()
Dim i As Long, myClr As Long
With Range("a1").CurrentRegion
    With .Resize(, .Columns.Count - 1).Offset(,1)
        For i = 2 To .Rows.Count
            Select Case .Rows(i).Range("h1").Value
                Case "Tech" : myClr = 36
                Case "Update" : myClr = 34
                Case Else : myClr = xlNone
            End Select
            .Rows(i).Interior.ColorIndex = myClr
        Next
    End With
End With
End Sub