VBA to copy and SUM the data then paste it into NEWSHEET

Question

I have created this code which copy and paste the data after matching the particular value from Row 6 then paste the Row 7 data in NewSheet.

I am unable to create tha