Para DAM necesidad de colocar la fórmula de la edad después de trasladar los datos

Hola DAM

Que pena molestarte tanto pero te pido el favor en ayudarme en lo siguiente:

Tu ya me habías dado esta macro

Sub Trasladar()
'Por.Dante Amor
    Set h1 = Sheets("inscripción")
    Set h2 = Sheets("BD")
    '
    h1.Range("C7:C14").Copy
    u = h2.UsedRange.Rows(h2.UsedRange.Rows.Count).Row + 1
    h2.Range("A" & u).PasteSpecial Paste:=xlPasteValues, Transpose:=True
    MsgBox "Registro copiado"
End Sub

Si te das cuenta, al trasladar los datos irian desde la columna "A" hasta la columna "H" quedando libre la columna "I".

La fecha de nacimiento está en la columna "G".

En la celda de la columna "I" necesito después de copiar los datos, la fórmula de la edad (Recuerda que la fecha de nacimiento estará en la "G". Y necesito la fórmula y no el resultado de la edad dado a que necesito que a medida que pase el tiempo la edad se mantenga siempre actualizada.

Espero me hallas comprendido

Gracias