Function HideEmptyRows_2019(strSearch, myRange)
Dim cel As Range
For Each cel In myRange.Cells
        If cel.Value = strSearch Then
            cel.Select
            Selection.EntireRow.Hidden = True
        End If
Next
End Function

Function UNHIDE_EmptyRows_2019(strSearch, myRange)
Dim cel As Range
For Each cel In myRange.Cells
        If cel.Value = strSearch Then
            cel.Select
            Selection.EntireRow.Hidden = False
        End If
Next
End Function
Function GetSearchArray_ICE(strSearch, myRange)
Dim cel As Range
For Each cel In myRange.Cells
    If cel.Value = strSearch Then
        X = X + 2
        Range("A36").Offset(X, 0).Value = cel.Offset(0, -1).Value 'Start from reference point A36, offset by (x) rows down. Set the value as the cell, where the value was a match (offset 1 column left).
        If X >= 8 Then Exit Function
    End If
Next
End Function

Function GetSearchArray_ICE_Mgmt_2019(strSearch, myRange)
Dim cel As Range
For Each cel In myRange.Cells
    If cel.Value = strSearch Then
        X = X + 2
        Range("A35").Offset(X, 0).Value = cel.Offset(0, -1).Value 'Start from reference point A36, offset by (x) rows down. Set the value as the cell, where the value was a match (offset 1 column left).
        If X >= 8 Then Exit Function
    End If
Next
End Function

Function GetSearchArrayTIX_Agent_2019(strSearch, myRange)
Dim cel As Range
For Each cel In myRange.Cells
    If cel.Value = strSearch Then
        X = X + 2
        Range("A29").Offset(X, 0).Value = cel.Offset(0, -1).Value 'Start from reference point A36, offset by (x) rows down. Set the value as the cell, where the value was a match (offset 1 column left).
        If X >= 8 Then Exit Function
    End If
Next
End Function

Function GetSearchArrayTIX_MGMNT_2019(strSearch, myRange)
Dim cel As Range
For Each cel In myRange.Cells
    If cel.Value = strSearch Then
        X = X + 2
        Range("A29").Offset(X, 0).Value = cel.Offset(0, -1).Value 'Start from reference point A36, offset by (x) rows down. Set the value as the cell, where the value was a match (offset 1 column left).
        If X >= 8 Then Exit Function
    End If
Next
End Function