Algumas considerações:
1) Sempre compacte ou tente reduzir o tamanho dos seus arquivos para o mínimo necessário para atender sua dúvida *(regras do forum, link na minha assinatura). Eu (moderador) tomei a liberdade de reduzir a quantidade de dados e compactar seu arquivo.
2) Tente ser o mais claro possível na sua dúvida, ajude-nos a te ajudar.
3) Agora vamos a sua dúvida... Uma coisa importante é que as vezes quem tem a dúvida imagina que a única solução seja como ele propôs, ou seja, no seu caso, com VBA...
MAS, pelo que eu entendi, vc precisa da informação, e a forma não necessariamente precisa ser VBA, a não ser que haja algum bom motivo, eu cheguei a um resultado, com fórmula mesmo! Assim, coloque em H4 e arraste:

=PROCV(F4;$A$4:$C$400;3;1)

Ficará como no anexo *(devidamente compactado)

Bom dia!

Ficou muito bom!
Me desculpe por não ter compactado o arquivo, isso não irá se repetir.

Muito obrigado pela rápida solução.