Help to join 2 sets of data by modifying MACRO into VBA

Dear All,

We need to get data from 2 system and combine them into 1 summary and format the header and do a sum adding.

I had attached a workbook with the MACRO that I had created which some steps that still needs to do manually.

Is it possible to write a VBA and do it in 1 button?