CurrentRegion o cómo encontrar primer fila libre.

Una de las tareas más habituales es tratar de encontrar la primer fila libre para agregar datos a una tabla u hoja de base de datos.
Y si bien algunos sugieren el uso de la propiedad 'CurrentRegion'... ¿es siempre la mejor opción? Definitivamente NO.
Observemos la siguiente imagen. Una tabla que se inicia en fila 7.

La información que podemos obtener con CurrentRegion es la siguiente:

Sub info()

rangox = [C15].CurrentRegion.Address

'total de filas de tabla. Se resta 1 si solo se requiere el total de filas de datos.

filas = [C12].CurrentRegion.Rows.Count           

columnas = [C12].CurrentRegion.Columns.Count

End Sub

Con respecto a encontrar la primer fila libre, no sirve tomar el total de 'filas' +1 salvo que la tabla inicie en fila 1.
En cambio en imagen anterior esto devolvería 5 lo que es incorrecto. También hay que sumar las filas no ocupadas por la tabla, es decir:
               filas = [C12].CurrentRegion.Rows.Count+7

En la siguiente imagen nuestra tabla inicia en fila 1. Contiene algunos datos ya ingresados  y deseamos agregar algunos más.

En la macro le indicamos que nuestra tabla inicia en fila 1, pero el mensaje nos dirá que la primer fila libre es 13.

Sub prueba2()

Set HojaDestino = ActiveSheet.Range("A1").CurrentRegion

NuevaFila = HojaDestino.Rows.Count + 1

MsgBox NuevaFila

End Sub

Es decir, la cantidad de filas ocupadas por la tabla + 1. Y esto se debe a que la tabla presenta una columna con fórmulas ya extendidas a futuro.

Por lo tanto, para encontrar la primer fila libre la mejor opción es recorrer la columna A (o la que fuese) desde abajo hacia arriba:

Sub prueba3()

NuevaFila = Range("A" & Rows.Count).End(xlUp).Row + 1

MsgBox NuevaFila

End Sub

Y si nuestra tabla presenta otra información más abajo, haremos la búsqueda a partir de esa segunda tabla hacia arriba. Aquí la col a considerar es B:

Sub prueba4()

NuevaFila = Range("B18").End(xlUp).Row + 1

MsgBox NuevaFila

End Sub

Quedaría aún otra opción para cuando se desconoce el inicio de la segunda tabla. Recorrer desde el título (en fila 3) hacia abajo hasta encontrar una celda vacía. También para cuando tenemos un modelo de 'Tabla' (las del menú Insertar).

Sub prueba5()

NuevaFila = Range("B3").End(xlDown).Row + 1

MsgBox NuevaFila

End Sub

NOTA: esta opción devolverá la última celda de la hoja (1048577) si la tabla es única y se encuentra vacía de datos. Y en el caso de ser una 'Tabla' vacía de datos devolverá la fila 21 para este modelo.

Descargar libro de ejemplo desde aquí.
Ver VIDEO 30 con otros ejemplos.