Macros

Si te parece, hacemos una cosa: te contesto a una pregunta, me puntúas, y te contesto a otra, me vuelves a puntuar, y te vuelvo a contestar, ¿OK? Es que a veces hay usuarios que no finalizan, y da mucha rabia haberse tirado una hora preparando su respuesta y que luego no quieran finalizarla. No te conozco aún, pero si eres serio, prometo a cambio darte siempre trato preferencial y esforzarme en las respuestas, ¿Ok?. Bien, para tu primera pregunta, cómo seleccionar la primera celda vacía de una columna, hay varias opciones, que dependerán del caso:
A) Si en esa columna no hay celdas en blanco entre los datos (por ej., se han rellenado de A1 a A50, y ninguna está vacía) puedes usar la siguiente sentencia:
Range("A1").End(xlDown).Offset(1, 0).Select
Te explico la sentencia por partes:
Range("A1") es la celda donde empiezan los datos, deberás cambiar la referencia por la que corresponda.
End(xlDown) equivale a hacer con el teclado Control+Flacha abajo, y lo que hace es situarse en la útima celda con datos.
Offset(1,0) sirve para desplazarse una celda abajo, y por tanto nos sitúa en la primera celda vacía de la columna.
B) En caso de que existan celdas en blanco, entonces yo utilizo la siguiente sentencia:
Range("A65536"). End(xlUp). Offset(1, 0). Select. Como supongo sabrás, cada hoja de Excel tiene 65536 filas, por tanto, A65536 nos coloca en la última celda de la columna A. Sólo que ahora utilizamos End(xlUp), que lo que hace es subir a la primera celda con datos (es equivalente a pulsar Control+Flecha Arriba).
C) Y si fueses una persona muy, pero que muy previsora, y pensaras: bien, ahora excel tiene 65536 filas, pero ¿Quién me dice a mí si quizás en el futuro salga una nueva versión con más filas? ¿Tendré qué cambiar todas mis macros? Pues para ese caso, utiliza esta otra sentencia:
Range("A" & ActiveSheet.Rows.Count).End(xlUp).Offset(1, 0).Select
Te explico: ActiveSheet. Rows. Count lo que hace esta parte es contar cuántas filas tiene la hoja activa, como ahora mismo (Excel tiene el mismo número de filas desde la versión 97) el número es 65536, la sentencia Range("A" & ActiveSheet. Rows. Count) nos sitúa en la celda A65536, pero si en el futuro fuesen 70000, nos situaría en A70000.
En fin.