El bucle For-Next no termina hasta el valor definido en "to"

Estimados, tengo esta macro:

Sub Graba_Horas()
ActiveSheet.Unprotect
Application.Calculation = xlManual
LEG = ActiveSheet.Cells(6, 4).Value
AYN = ActiveSheet.Cells(8, 3).Value
f = ActiveSheet.Cells(14, 2).Value
For n = 15 To n + f
If ActiveSheet.Cells(n, 1).Value <> "" Then
j = ActiveSheet.Cells(n, 1).Value
FECH = ActiveSheet.Cells(n, 3).Value
ING = ActiveSheet.Cells(n, 14).Value
SAL = ActiveSheet.Cells(n, 15).Value
HST = ActiveSheet.Cells(n, 6).Value
HSE = ActiveSheet.Cells(n, 7).Value
HSA = ActiveSheet.Cells(n, 8).Value
AHS = ActiveSheet.Cells(n, 9).Value
AHE = ActiveSheet.Cells(n, 10).Value
AUS = ActiveSheet.Cells(n, 11).Value
If ING = "" And AUS = "Ausente" Then
ING = AUS
SAL = AUS
End If
Worksheets("BD Horas").Cells(j, 1).Value = LEG
Worksheets("BD Horas").Cells(j, 2).Value = FECH
Worksheets("BD Horas").Cells(j, 3).Value = ING
Worksheets("BD Horas").Cells(j, 4).Value = SAL
Worksheets("BD Horas").Cells(j, 5).Value = HST
Worksheets("BD Horas").Cells(j, 6).Value = HSE
Worksheets("BD Horas").Cells(j, 7).Value = HSA
Worksheets("BD Horas").Cells(j, 8).Value = AHS
Worksheets("BD Horas").Cells(j, 9).Value = AHE
If AUS = "Llegada Tarde" Then
FIN = False
i = 1
While FIN = False
i = i + 1
If Sheets("BD Ausencias").Cells(i, 1).Value = "" Then
Sheets("BD Ausencias").Cells(i, 1).Value = FECH
Sheets("BD Ausencias").Cells(i, 2).Value = LEG
Sheets("BD Ausencias").Cells(i, 3).Value = AYN
Sheets("BD Ausencias").Cells(i, 4).Value = AUS
Sheets("BD Ausencias").Cells(i, 8).Value = FECH
Sheets("BD Ausencias").Cells(i, 9).Value = FECH
FIN = True
End If
Wend
End If
End If
Next n
Limpia
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.Calculation = xlAutomatic
End Sub

el valor f es una variable que cuenta las filas con valor. En el caso del error, tiene un valor de 22, con lo cual n iría de 15 a 37, pero luego que llega al valor 23, ejecutando la macro paso a paso, llega a "Next n" y pasa a "Limpia" sin más...

A qué puede deberse el error???

Añade tu respuesta

Haz clic para o