Evitar bucle infinito

[BugmeNot2]

Tengo 10 filas en las que quiero agrupar unos 1000 valores en grupos mas o menos uniformes de 100, pero no siempre va ser posible porque a veces un mismo valor se repite supongamos unas 200 veces. Yo tengo una macro para cada fila que es algo como esto los valores alto y bajo dependen si hay mas de 125 y menos de 75, pero si tengo 200 nunca va saltar "bien" y la macro se queda en el mismo punto

Sub Porcentajes()

Do

If Range("af24").Value = "Bajo" Then

Range("ao24").Copy

Range("u24").PasteSpecial xlPasteValues

End If

If Range("af24").Value = "Alto" Then

Range("an24").Copy

Range("u24").PasteSpecial xlPasteValues

End If

Loop Until Range("af24").Value = "Bien"

End Sub

[/CODE]

Estuve viendo que hay una forma de evitar eso y ponian esto pero no se como aplicarlo en mi macro

[CODE]Sub exitDoExample()
Dim counter As Integer = 0
Dim number As Integer = 8
Do Until number = 10
If number <= 0 Then Exit Do
number -= 1
counter += 1
Loop
MsgBox("The loop ran " & counter & " times.")
End Sub[/CODE]

Desde ya muchas gracias

[AlexanderS]

Sube un ejemplo de tu archivo, de nada sirve que pongas la macro si no podemos probarla en el archivo para la que fue creada. https://www.ayudaexcel.com/foro/misc.php?do=vsarules&cfrset=1