[Bugs] Auto fill in new sheet using for loop in VBA

Hi Experts,
I've tried for hours and it keeps showing error message.
Could some one point out the bugs?

Screenscap 1 - Adding Column D as index for lookup
Capture1.PNG

Screenscap 2 - The result I'd like to have
Capture.PNG

Attachment TXT - Macro that has bus
Attachment XLSX - Raw data to work on

Thanks.