Encontrar celdas donde están los 4 valores más altos en un rango de datos Excel VBA

Hola a todos, tengo una consulta

Deseo encontrar la ubicación de la celdas que contengan los primeros 4 valores más grandes o mayores de un rango de celdas como por ejemplo en el rango "D2:D40", usando una macro VBA. También que tenga en cuenta si hay números repetidos.

Les agradezco de antemano por su respuesta. Un fuerte abrazo