Query related to VBA with formula

Hello Everyone,

I want to apply VLOOKUP FUNCTION formula in filtered cells only with the help of VBA code. So, what should i write VBA code to give VLOOKUP FUNCTION and it should be dynamic ??

Please help...

Here is a attached file...