Función Index y Match en Macros

Tengo la siguiente macro:

https://www.dropbox.com/s/j7eo2rlgzgv2g75/Ejemplo%203.xlsm

Y el código que debo modificar exactamente es:

valor = WorksheetFunction.Index(Sheets("Base de Datos").Range("a2:b6"), WorksheetFunction.Match(Sheets("Base de Datos").Range("a2"), Sheets("Base de Datos").Range("a2:a6"), 0), 2)

El problema es que código que ponga siempre me sale el primer nombre asignado y quiero que cuando ponga por ejemplo otro código, me de le nombre de la persona asignada a ese código no el primer nombre.

Espero me puedan ayudar