Average each Column

Hello Excel enthusiasts!
Happy (almost) Halloween!
My dilemma lies in trying to average each column once a new filter takes place.
A macro filters a column to a specific part number, from there only specific part number is shown with all its passing values ranging in about 10 columns.
I would like to somehow, at the end of each column show the average value, or maybe show the results on sheet2 with the Part number listed with the average values listed along side.
Im thinking of incorporating such a task inside the "PartNumber" macro, so as soon as it filters the part number, you can take the average?
Everything I seem to attempt is wrong...

Any help would be valued. Thank you for taking the time to attempt this.

OK, the code above works. How about having each part number line up row by row with their averages next to them?

Well, Let me specify how the code works.
I have about 5000 point of data to sort through. The data, due to some VBA code, permits each Part Number to sectionalize the data.
From there, we can either Place the average values of each column at the end per part number. Or we could place on a new worksheet with the part number listed along with average values.
The data will be listed, so as to have each part number visible corresponding with their respected average values per column.
The code above only brings it to the new worksheet, but it does not bring in more than one part number along with its average values.

Some assistance needed.

Yup, Just like that. Thank you very much! Just have to do some tidying up, but it'll get the job done. Thank you for your assistance!