¿CÓMO VOY A LA PRIMERA CELDA VACÍA EN UNA COLUMNA?

En la columna D, las primeras 29 filas están llenas y quiero ir a la
siguiente (la primera celda vacía en esa misma columna) y ahí quiero insertar
una fila. Hice una macro así:
Range("D1").Select
Selection.End(xlDown).Select
Range("D30").Select
Selection.EntireRow.Insert
Funciona bien pero, si quiero usar la misma macro cuando, en vez de 29 filas
llenas tengo más (o menos) filas llenas, la macro no sirve: no me conduce a
la primera celda no-vacía (me sigue llevando a celda D30...).
Gracias.