Visual Basic para Aplicaciones - Problemas de programacion

Hola,

Tengo problemas de programación ya que cuando mi segunda condición (If Milling < Range("Tabla2").Cells(Quantity, 2).Value Then) no se cumple cuando Milling=3 y sss=20 y no entiendo por que. Por ello, el codigo llega a else donde Milling se reinicia al valor de 2 y ocurre lo mismo cuando llega a de nuevo a 3.

Si alguien me puede ayudar con alguna cosa, lo agradeceria

Sub Millingbatch()

Dim ID As Integer
Dim Guztira As String
Dim Milling As String
Dim Quantity As String
Dim Batch As String
Dim sss As String


Guztira = "O11"
Milling = 1
Quantity = 1
Batch = 1

For ID = 1 To (Range(Guztira).Value - 1) Step 1
If Range("Tabla3").Cells(ID, 2).Value = "OK" Then
If Milling < Range("Tabla2").Cells(Quantity, 2).Value Then
Range("Tabla1").Cells(ID, 7) = Range("Tabla2").Cells(Batch, 1).Value
'sss = Range("Tabla2").Cells(Quantity, 2).Value
Milling = Milling + 1
Else
Batch = Batch + 1
Range("Tabla1").Cells(ID, 7) = Range("Tabla2").Cells(Batch, 1).Value
Milling = 2
End If
End If
Next ID

Sin ver el libro y los valores que va tomando las variables y objetos es difícil ver donde esta el problema.

Saludos
\\//_