Function MaxLessThanTwoTier() As Integer
    Dim tierLength As Integer, result As Integer
    result = 0
    tierLength = 0
    For i = 1 To 100000
        Set curCell = Worksheets(1).Cells(i, 2)
            If curCell.Value < 2 Then
            curCell.Interior.Color = RGB(255, 244, 233)
            tierLength = tierLength + 1
        Else
            If tierLength > result Then result = tierLength
            tierLength = 0
        End If
    Next i
    
    MaxLessThanTwoTier = result
End Function


Sub Botón1_Haga_clic_en()
    MsgBox MaxLessThanTwoTier
End Sub