Huge data index/match replacement

Sorry, i'm making use of the data in an past post,how can i change the 2-dimension index/match to vba?
i know how to do it with formula (as attached logic) but don't know how i can shorten the process time.... i have >40,000 rows in the file and need to pops up results for >20 columns..
Attachment 529906