Sub test()
    Dim c1 As Range
    Dim c2 As Range
    Dim found As Boolean
    For Each c1 In Range("F4:F8")
        found = False
        For Each c2 In Range("C4:C21")
            'Если данные в столбце 2 найдены то
            If c2.Value = c1.Value Then
                'Если найденная ячейка в столбце 2 была уже закрашена желтым, то в столбце   3   написать " ОК – желтая"
                If c1.Cells(1, 2).Interior.Color = RGB(255, 255, 0) Then
                    c1.Cells(1, 2).Value = "ОК – желтая"
                Else
                    'В столбец 3, рядом с текущей ячейкой,  записать "ОК".
                    c1.Cells(1, 2).Value = "ОК"
                End If
                'закрасить найденную ячейку в столбце 2 с совпадающим значением из столбца 1 желтым цветом.
                c1.Cells(1, 2).Interior.Color = c2.Interior.Color
                'В столбец 4 записать адрес ячейки из столбца 2.
                c1.Cells(1, 3).Value = c2.Address(0, 0)
                found = True
                Exit For
            End If
        Next
        'Если ячейка с совпадающим значением в столбце 2 не была найдена
        If Not found Then
            'то в столбце   3   написать  не найдена и закрашивает ячейку  красным цветом
            c1.Cells(1, 2).Value = "не найдена"
            c1.Cells(1, 2).Interior.Color = RGB(255, 0, 0)
        End If
    Next
End Sub