counting the absent of a value per range

[montecarlo2012]

Sub N()
    Dim count As Integer
    count = 0
    For Each cell In Range("B2:F2")
        If cell.Value = Range("M2").Value Then
            count = count + 1
        End If
    Next cell
    If count = 0 Then
        Range("N3").Value = 1
    Else
        Range("N3").Value = 0
    End If
End Sub

Hi. This little code is just and introduction of the idea I would like to explain to you guys.
I read the range B2:F2 to see if the value on M2 is there or not, so if it is not there count one absent
after suppose I create a loop to go to the next range, but here is the trick if the next range also
do not have this value then now is " 2 times absent count"
but if the next row is present then display 0
sorry the count of two will be display on N2 and the next result "0"
will be display on O2.
I don't have at the moment xxb to display my worksheet my apology for the picture.
this this the partial array

and this is the tiny sample of the output

Thank you for your time

 

[montecarlo2012]

just in case if you read and still I am not clear
may be this images clear the concept

thanks.
maybe I get lucky

 

[montecarlo2012]

second try.

Sub Inte()
For i = 2 To 37
Set rngData = Range("B" & i & ":F" & i)
m = 0
  For j = 2 To 40
   n = 1
    For Each cell In rngData
     If cell = Range("M" & n) Then
      Range("N2").Offset(0, m) = n
    m = m + 1
   xit For
End If
n = n + 1
Next cell
Next j
Next i
End Sub

nothing work here

 

[montecarlo2012]

working out

Sub CountOccurrences()
    Dim i As Long, j As Long, m As Long, n As Long
    Dim bins As Range, data As Range, display As Range, cell As Range
    
    Set bins = Range("M2:M37")
    Set display = Range("N2")
    
    For i = 2 To 40
        Set data = Range("B" & i & ":F" & i)
        m = 0
        For Each cell In bins
            n = 0
            For j = 1 To data.Rows.count
                If cell.Value = data.Cells(j, 1).Value Then
                    display.Offset(m, n).Value = j
                    n = n + 1
                End If
            Next j
            m = m + 1
        Next cell
    Next i
End Sub

please give a hand here
I am no going no where