How can I add a condition in my loop that does not work?

Hey folks!

I've a problem with my code, basically this loop distribute a known number evenly 1 by 1 across a range where the known number is given by "TV Comodin" Row (in color Red) until the rows reach to 100 (limit) or the known number reach to 0 , the data set is as follow:

Captura.PNG

My code works, it identify the minimum value and then distribute the known number evenly 1 by 1 across the range, and once the known number reach to 100 or the known number gets to 0 it stops, the problem here is that the loop just should be adding the number 1 by 1 and stopping when it finish in the rows with the AB Category (given by the "SEGMENT" column ") . When I try to add this rule, it just not works and keeps adding the number in all the rows along the range, here is my try:

Sub prueba()
   
    Dim f As Range, ws As Worksheet, comodin As Long, rng As Range, m
    
    Set ws = ActiveSheet

    Set rng = ws.Range("A2", ws.Range("A2").End(xlDown)).Offset(0, 1)
   
    Set f = ws.Columns("A").Find(What:="TV Comodín", LookIn:=xlFormulas, _
                                 LookAt:=xlWhole, MatchCase:=False)
                                 
Lastrow = Range("I" & Rows.Count).End(xlUp).Row
myvar = 100

For j = j + 1 To Lastrow
If Range("I" & j) = "CD" And Range("B" & j) <= myvar Then
 For i = i + 1 To Lastrow
       If Not f Is Nothing Then
            rng.Value = ws.Evaluate("=" & rng.Address() & "*1") 'fill empty cells with zeros
            comodin = f.Offset(0, 1).Value
            Do While comodin > 0 And Range("I" & j) = "CD"
                mn = Application.Min(rng)
                If mn >= myvar Then Exit Do ' exit when no values are <100
                m = Application.Match(mn, rng, 0)
                rng.Cells(m).Value = rng.Cells(m).Value + 1
                comodin = comodin - 1
                f.Offset(0, 1).Value = comodin
            Loop
        Else
            MsgBox "No found"
        End If
 Next i
End If
 Next j

the desired out put would be:

Sin título.png

any idea? hope you can help me guys, thanks ( I attached the data set, )