Lookup Using VB Code

I am trying to get a bit of VB code that looks up a value in another spreadsheet and adds to the details already in the cell replacing the 1

The first spreadsheet is a summary of the second, but users have complained that they have to flick between the two sheets to make sense of the data.


Also in the cells that are not 100% take the actual percentage and add to ref code Example (49827 - 16%) this information is in Time coulum in the summmary spreadsheet.


Summary Spreadsheet

HTML Code: 

Data Spreadsheet

HTML Code: 

Thanks in advance for any help