Convert table data into list - VBA code

Dear all,
I am using the following code below, which extracts the prices according to names in column D and then totals all prices at the last row.

Please Login or Register  to view this content.

I require assistant in making the code to display the output in Sheet2 instead of in Sheet1.

I have attached a sample workbook showing:
Worksheet names “Current_progress” displays input and current output
Worksheet “Sheet1” shows input data
Worksheet “Sheet2” shows desired output from sheet 1 input.

Total_Count_Example_2611.xlsm

Any help would be very much appreciated. Thank you in advance.

Kind regards

Change this line

Please Login or Register  to view this content.

in to

Please Login or Register  to view this content.

Thank you so much for your response.

I would also like to ask, is it possible to make row 1 in sheet2, automated, for example to extract the names and prices from sheet1 automatically in a list format instead of manually adding it in.

thank you for your help and time.