VBA to copy the data when criteria is met and Sum the (Gross Wage) values

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 not expert in VBA bu