Automating a Series of Autofilters and Calculations

I have this daily report which I was hoping someone would be able to help out with in further automating.
In the "Totals" worksheet there is a description of the metric and a box for which I would like the value to be pulled from "Sheet1"; there are two locations for which these six metrics need to be calculated, "Bob" and "Martha".

1)Metric one is "Current Day Cycle". I would like to query the user with the number of days before the current date for which they would like the metric calculated. Depending on the input from the user the "Date Shipped" Column in "Sheet1" would be autofiltered to select that date only. For example if today is the 20th of September and the user selected "1" the code would autofilter the "Date Shipped" column for 9/19/2012. Once the autofilter has been set the value from the "Average Cycle Time" (Column G) should be input into cell B2 in the "Totals" worksheet.

2)Metric two is "Monthly Cycle". This is just the value from the average cycle time column once all values in the "Date Shipped" column for the current month have been selected.

There are four other metrics which are similar to one another and descriptions of how these are calculated are included in the Totals worksheet. If anyone would be willing to help out with this it would be greatly appreciated. I did write some macros to automate some of the data scrubbing and calculations before the final metrics are calculated but I'm a bit stuck at this point.