I have code that looks at thousands of lines, but because there are so many IF statements, it takes a long time to process one line. Anyway I can consolidate?

    last_Row = Range("E65536").End(xlUp).Row
    For x = 1 To last_Row
        string_Being_Searched = Range("E" & x).Value
        If InStr(1, string_Being_Searched, "safety", vbTextCompare) Then
            Range("K" & x).Value = "Safety"
        End If
        If InStr(1, string_Being_Searched, "glove", vbTextCompare) Then
            Range("K" & x).Value = "Safety"
        End If
        If InStr(1, string_Being_Searched, "resp", vbTextCompare) Then
            Range("K" & x).Value = "Safety"
        End If
        If InStr(1, string_Being_Searched, "protection", vbTextCompare) Then
            Range("K" & x).Value = "Safety"
        End If
        If InStr(1, string_Being_Searched, "arcflash", vbTextCompare) Then
            Range("K" & x).Value = "Safety"
        End If
        If InStr(1, string_Being_Searched, "harness", vbTextCompare) Then
            Range("K" & x).Value = "Safety"
        End If
        If InStr(1, string_Being_Searched, "cara", vbTextCompare) Then
            Range("K" & x).Value = "Safety"
        End If
        If InStr(1, string_Being_Searched, "lanyard", vbTextCompare) Then
            Range("K" & x).Value = "Safety"
        End If
        If InStr(1, string_Being_Searched, "fall", vbTextCompare) Then
            Range("K" & x).Value = "Safety"
        End If
        If InStr(1, string_Being_Searched, "dial", vbTextCompare) Then
            Range("K" & x).Value = "Calibrated"
        End If
        If InStr(1, string_Being_Searched, "indicator", vbTextCompare) Then
            Range("K" & x).Value = "Calibrated"
        End If
        If InStr(1, string_Being_Searched, "gage", vbTextCompare) Then
            Range("K" & x).Value = "Calibrated"
        End If
        If InStr(1, string_Being_Searched, "caliper", vbTextCompare) Then
            Range("K" & x).Value = "Calibrated"
        End If
        If InStr(1, string_Being_Searched, "mic", vbTextCompare) Then
            Range("K" & x).Value = "Calibrated"
        End If
        If InStr(1, string_Being_Searched, "torque", vbTextCompare) Then
            Range("K" & x).Value = "Calibrated"
        End If
        If InStr(1, string_Being_Searched, "drill", vbTextCompare) Then
            Range("K" & x).Value = "P/E/H"
        End If
        If InStr(1, string_Being_Searched, "etcher", vbTextCompare) Then
            Range("K" & x).Value = "P/E/H"
        End If
        If InStr(1, string_Being_Searched, "battery", vbTextCompare) Then
            Range("K" & x).Value = "P/E/H"
        End If
        If InStr(1, string_Being_Searched, "hose", vbTextCompare) Then
            Range("K" & x).Value = "P/E/H"
        End If
        If InStr(1, string_Being_Searched, "vacuum", vbTextCompare) Then
            Range("K" & x).Value = "P/E/H"
        End If
        If InStr(1, string_Being_Searched, "cord", vbTextCompare) Then
            Range("K" & x).Value = "P/E/H"
        End If
        If InStr(1, string_Being_Searched, "elec", vbTextCompare) Then
            Range("K" & x).Value = "P/E/H"
        End If
        If InStr(1, string_Being_Searched, "pneu", vbTextCompare) Then
            Range("K" & x).Value = "P/E/H"
        End If
        If InStr(1, string_Being_Searched, "fault", vbTextCompare) Then
            Range("K" & x).Value = "P/E/H"
        End If
        If InStr(1, string_Being_Searched, "motor", vbTextCompare) Then
            Range("K" & x).Value = "P/E/H"
        End If
        If InStr(1, string_Being_Searched, "charger", vbTextCompare) Then
            Range("K" & x).Value = "P/E/H"
        End If
        If InStr(1, string_Being_Searched, "oxygen", vbTextCompare) Then
            Range("K" & x).Value = "P/E/H"
        End If
        If InStr(1, string_Being_Searched, "acety", vbTextCompare) Then
            Range("K" & x).Value = "P/E/H"
        End If
        If InStr(1, string_Being_Searched, "nitrogen", vbTextCompare) Then
            Range("K" & x).Value = "P/E/H"
        End If
        If Not Range("K" & x).Value Like "wr" Then
            If InStr(1, string_Being_Searched, "grinder", vbTextCompare) Then
                Range("K" & x).Value = "P/E/H"
            End If
        End If
        If Range("K" & x).Value = vbNullString Then
            Range("K" & x).Value = "Other"
        End If
    Next x