=МАКС(ЧАСТОТА(ЕСЛИ(C2:C22>10;СТРОКА(C2:C22)-1);ЕСЛИ(C2:C22<=10;СТРОКА(C2:C22)-1)))

Dim lMoreThan As Long
Dim lLength As Long, lRowsMax As Long
Dim i As Long, j As Long, lRows As Long
Dim arr()

Sub findSequenceNumbers()
  Call InitSet
  For i = 1 To UBound(arr)
    arr(i, 2) = 0 'допустим последоваетельности нет
    If arr(i, 1) > lMoreThan Then _
      Call HowLong 'ищем длину последовательности
    arr(i, 3) = i + 1 'номер строки в текущих условиях
  Next
  Call LazyDogSort
  Call PaintItBlack
End Sub
Sub InitSet()
  lMoreThan = 10
  lLength = 1
  lRows = Range("c3").CurrentRegion.Rows.Count
  arr = Range(Cells(2, 3), Cells(lRows + 1, 5)).Value
  '1 столбец = значение, 2 = длина, 3 = номер строки
  'каждой ячейке проставляем длину послдовательности
End Sub
Sub PaintItBlack()
  Range("c2").CurrentRegion.Interior.Pattern = xlNone
  Range(Cells(lRowsMax, 3), Cells(lRowsMax + lLength, 3)).Interior.Color _
    = 8421504
  Cells(lRowsMax, 3).Select
End Sub
Sub LazyDogSort()
  Application.ScreenUpdating = False
  Workbooks.Add: Set wbTem = ActiveWorkbook
  With wbTem.Sheets(1)
    .Range("a1").Resize(UBound(arr), UBound(arr, 2)) = arr '
    doIt = .Range("a1").CurrentRegion.Sort(Range("b1"), xlDescending, Header:=xlNo)
    lRowsMax = .Range("c1") 'случай с несколькими одинаковыми здесь не рассматривается
    lLength = .Range("b1")
  End With
  wbTem.Close SaveChanges:=False
  Application.ScreenUpdating = True
End Sub
Sub HowLong() 'ищем длину последовательности
  For j = 1 To UBound(arr) - i
    If arr(i + j, 1) > lMoreThan Then
      lLength = lLength + 1
    Else
      arr(i, 2) = lLength
      lLength = 1
      Exit Sub
    End If
  Next
End Sub