Need code for a Filter(rows) then Average(cols) VBA function

Hello again!

This time I have a tricky one. (well to me it is)

I have a need to run a filter on a sheet (Archives) that I just updated and generate averages for 3 of the Columns based on the ID just added then write that updated info on to yet another sheet(Origin of the ID).

As part of the Origin update I also need to do update the count of the records that have been averaged.

And I HOPE to do all this in the code of the UserForm (unless it makes more sense to do it another way) I will plug it in to the command button that is already used to do the Archive update.

There are many sheets but I was able to build up a sample to illustrate my situation.

I know my skillset, and this is currently way beyond it, so any help I can get here will be MOST appreciated. (I think I'm good enough to plug it in)

OK, maybe asking for all three functions was a bit greedy, I'll edit the title to just request the Filter and averaging... I SHOULD be able to figure out the Updating part myself.