Private Sub SelectByCross(currentValue As String)
        Application.ScreenUpdating = False
        Dim interestRow As New Collection
        Set interestRow = New Collection
        CheckColumn "H", interestRow
        CheckColumn "I", interestRow
        CheckColumn "J", interestRow
        Dim currentRowIndex As Long, ro As Range, isRowNeeded As Boolean
        For Each ro In Range(columnLetter & "5:" & columnLetter & ActiveCell.SpecialCells(xlCellTypeLastCell).Row)
            For Each currentRowIndex In interestRow
                If currentRowIndex = ro.Row Then
                    isRowNeeded = True
                End If
            Next currentRowIndex
            If isRowNeeded = False Then
                ro.Hidden = True
            End If
        Next ro
        Application.ScreenUpdating = True
End Sub

Private Sub CheckColumn(columnLetter As String, currentValue As String, ByRef interestRow As VBA.Collection)
    Dim sh As Worksheet, ro As Range
    For Each ro In Range(columnLetter & "5:" & columnLetter & ActiveCell.SpecialCells(xlCellTypeLastCell).Row)
        If InStr(ro.Value, currentValue) > 0 Then
            'ro.EntireRow.Hidden = True
            interestRow.Add (ro.Row)
        End If
    Next ro
End Sub

CheckColumn "H", interestRow