Desbordamiento de datos????

Hola, tengo un problema y me urge mucho espero pudan ayudarme.

Tengo una macro que realiza un llenado de datos, pero cuando llega a
cierto
numero me dice da un error, donde me dice que hay desbordamiento, espero
alguien me pueda ayudar, aqui esta el codio y los valores de las
variables:

n1=2
For n3 = 1 To hasta
If Range("B" & n1).Text = "" Then
Range("B" & n1) = Range("B" & n1 - 1)
End If
If Range("C" & n1).Text = "" Then
Range("C" & n1) = Range("c" & n1 - 1)
End If
n1 = n1 + 1
Next

hasta˜242
y n3 la declare como tipo double.
'hasta' es el valor de un celda que cuenta los registros.

Cuando n3 llega a 32768, ahi se para y me dice ue hay DESBORDAMIENTO.

Gracias.