Bien, estoy suponiendo entonces que no solo hay que controlar D2 sino la col D (el ejemplo muestra 3 filas...)
Entrá al Editor de macros, insertá un módulo y allí copiá esto:
Sub controlaFemina()
'x Elsamatilde
'se recorre la col D de la hoja Activa y se controla la col G
'se recorre desde la fila 2 hasta encontrar una celda vacía, asumiendo fin de rango
Range("D2").Select
While ActiveCell <> ""
'si dice femenino reviso la col G
If UCase(ActiveCell) = "FEMENINO" Then
If Range("G" & ActiveCell.Row) = "" Then Range("G" & ActiveCell.Row) = "NO APLICA"
End If
'paso a la fila sgte y repito el bucle
ActiveCell.Offset(1, 0).Select
Wend
'opcional:
MsgBox "Fin de la revisión de la hoja activa.", , "FIN"
End Sub
Podes dibujar un botón o establecer un atajo de teclado para ejecutarla. En la sección Macros de mi sitio explico estos temas en detalle.
Esto es para la hoja activa, del libro activo, según tu solicitud original: ...'lo tengo que hacer en el mismo archivo...
Pruébala y si esto resuelve para una hoja, finalizá la consulta y dejame la otra en el tablón (podes mencionar que es para mí).
ACLARACIÓN: Habrás notado que es muy importante al solicitar una macro, dejar los datos REALES para poder desarrollar algo que funcione. Así que aclará x favor todo lo que puedas con respecto al resto de los libros, en qué hoja u hojas hay que buscar, en qué col, etc. Y así no pierdes tiempo ni nosotros tampoco.