Function Contigues(c As Range) As Boolean
If c = "" Or c.Row = 1 Then Exit Function
Dim v, i&
v = c
For i = c.Row To 1 Step -1
If Cells(i, 3) <> v Then Exit For
If Cells(i, 8) > 5 Then Contigues = True: Exit Function
Next
For i = c.Row To Rows.Count
If Cells(i, 3) <> v Then Exit Function
If Cells(i, 8) > 5 Then Contigues = True: Exit Function
Next
End Function