Hola !
El valor "
Range("A1").CurrentRegion.Rows.Count" resulta un tanto impredecible si es que no estamos MUY SEGUROS de las características de nuestra región de datos.
Por ello te sugiero que si lo que deseas es
realizar tantas iteraciones como celdas no vacías tengas en la columna "A", apeles a un valor mucho más seguro:
Código:
For i = 1 To WorksheetFunction.CountA([A:A])
que se corresponde con la función del EXCEL "CONTARA"
Espero haberte ayudado.
Saludos