Cita:
Iniciado por David el Grande 
No sé, me pareció que comprobar si había realmente 10 columnas podría ser una solución. Pues dice que al ejecutar el código 9 veces no da error, solo da error cuando ejecuta el código la décima vez...
Yo tampoco lo sé (quizá no se explica bien o no conseguimos entenderlo) pero me parece que se está refiriendo a filas y no a columnas.
ActiveSheet.Cells(fila, i + 2) = ....
ahí está sumado filas en el bucle y no columnas