En el código de la hoja correspondiente a "CONSULTA" pega lo siguiente:
Código vb:
Ver originalPrivate Sub Worksheet_Change(ByVal Target As Range)
' Si la celda actualizada no es la que necesitas, entonces sales sin hacer cambios
If Intersect(Target, Me.Range("E4")) Is Nothing Then Exit Sub
' Desactivas detección de eventos para prevenir ciclo infinito
Application.EnableEvents = False
' ***********************
' Aquí agregas tu código para copiar, pegar y ejecutar la consulta
' ***********************
' Activas nuevamente la detección de eventos para poder continuar
Application.EnableEvents = True
End Sub