The following code uses the same ranges for data as your original post. The data to be tested is the selected range and it is tested against the data in the range C72 to C102
You will see that I have been a bit pedantic in some of the code - for example specifically using Value, although it may be the default for a range object.
Also I specifically DIM ranges as Range - this makes the IntelliSense work when creating or modifying code.
If VBA knows the variable's type, it can list available functions for it.
For example change y to Variant, then go to y.Text
Delete the period and then insert it - nothing happens.
Do the same with y as Range and you will get Text as an immediate option.
Dim CompareRange As Range
Dim x As Range
Dim y As Range
Set CompareRange = Range("C72:C102")
' Loop through each cell in the selection and
' see if cells contain text in the cells in the CompareRange.
For Each x In Selection
For Each y In CompareRange
If InStr(1, x.Text, y.Text) <> 0 And y.Value <> "" Then
x.Offset(0, -1).Value = "match"