Ocupar faltante al eliminar registros

Necesito si me puedeis ayudar nuevamente.

Me explico.

Al dar de alta un artículo en la tabla [Código] le asigno un grupo y una familia, con su origen en sus tablas respectivas y la Referencia, que es un campo calculado la toma del siguiente código después de actualizar el campo Familia.

Me.Referencia = 110 + Nz(DCount("*", "[Código]", "Grupo=" & Me.Grupo & " AND Familia=" & Me.Familia))

Si la Familia es nueva le asigna como Referencia 110. Y si existe le asigna la última Referencia de esa Familia existente más 1.

El problema me surge cuando elimino uno o varios registros, que quisiera que al dar de alta un nuevo artículo del mismo grupo y familia se le asignara la Referencia faltante mas antigua y así sucesivamente.