Visual Basic - VBA para excel!

Alguien me puede decir por que me sale error de desbordamiento? nuxempaque nunca es cero en la base de datos para la que calcula.Urgente please

Private Sub CommandButton2_Click()
Dim costoxempaque As Single, tipo As String, c As Integer, nuxempaque As Integer
Dim upresup As Single, fijovariable As Variant, fijo As Single, variable As Single

c = 0
costoxempaque = Val(Cells(10 + c, 6)) 'columna 6
tipo = Cells(10 + c, 8) 'columna 8
nuxempaque = Val(Cells(10 + c, 4)) 'columna 4
upresup = Val(Cells(10 + c, 7)) 'columna 4
fijo = Val(Cells(10 + c, 10)) 'columna 10
variable = Val(Cells(10 + c, 11)) 'columna 11

fijovariable = (costoxempaque / nuxempaque) * upresup

Do
c = c + 1
If tipo = "Fijo" Then

fijo = fijovariable
ElseIf tipo = "Variable" Then
variable = fijovariable
End If

Loop Until tipo = Empty

End Sub

Hace bien la declaracion de las variables, es una ensaladera de tipos !!!
Tambien tenes un bucle donde sumas 1 a c que es del tipo Integer. Proba de declarar todo como Long

El bucle LOOP UNTIL esta mal.
Por mas veces que se ejecute Tipo siempre vale lo mismo y la variable c se desborda.

El bucle LOOP UNTIL esta mal.
Por mas veces que se ejecute Tipo siempre vale lo mismo y la variable c se desborda.