I figured out a way of doing it by modifying code. The filter code came from
Debra Dalgleishs website at http://www.contextures.com. I realize this is a
bit detailed. However, I only want to save someone else with similar Excel
skills some time trying to figure it out. Im sure there is a hundred ways
of doing populating cells, but Im taking the gold I panned and cashing it
in. It's my first time using the Visual Basic Editor.

MAKE CHANGES TO LAYOUT FROM ORIGINAL POST:

1. Rename Sheet1 to €œData€�
2. Rename Sheet2 to €œFilteredReport€�

CHANGES TO €œFilteredReport€�

1. Have cells A5:A1058 reference to the €œData€� worksheet (e.g. A5:
=Data!A5). I do this to keep my data entry sheet separate from my report
sheet; I find it cleaner.

2. Enter the following in €œFilteredReport€�:
E2: Date
F2: Date
E3: =€�=€� & B2
F3: =€�<=€� & D2
I hide their visible values by giving E2:F3 a white font.

DEFINE NAMES FOR FILTER:

1. Go to INSERT €“ NAMES €“ DEFINE
2. Type €œAlldates€� in name
3. Type €œ=OFFSET(FilteredReport!$A$5,0,0,COUNTA(Filtered Report!$A:$A),1)€� in
REFERS TO.
4. Click ADD
5. Without exiting, type €œDatabase€� in name
6. Type €œ=OFFSET(FilteredReport!$A$5,0,0,COUNTA(Filtered Report!$A:$A),5)€� in
REFERS TO.
7. Click ADD and close

CREATING THE FILTER MACRO:

1. Insert a module in the Visual Basic editor by right-clicking the VBA
PROJECT [file name] in the upper left-hand pane and pasting the following:

Option Explicit

Sub ApplyFilter()
Dim wsDL As Worksheet
Dim wsO As Worksheet
Dim rngAD As Range
Set wsO = Sheets("FilteredReport")
Set rngAD = wsO.Range("AllDates")
'filter the list
wsO.Range("Database").AdvancedFilter _
Action:=xlFilterInPlace, _
CriteriaRange:=wsO.Range("E2:F3"), Unique:=False
End Sub

Sub RemoveFilter()
On Error Resume Next
ActiveSheet.ShowAllData
End Sub

2. Create and assign two buttons with one each of the new ApplyFilter and
RemoveFilter macros.

CALCULATING THE FILTERED DATA FOR MY REPORT:

Within €œFilteredReport€�, in row 1063, I entered my SUBTOTAL formula to
calculate only the visible data. The space between my SUBTOTAL formulas and
the data range help to keep it visible after applying the filter.

You can use the SUBTOTAL function to calculate filtered data in different
ways.
The SUBTOTAL formula for my Beer column looks like this:
=SUBTOTAL(9,B6:B1059)
The 9 in this formula will sum the column. By substituting the number with
one below, you can perform the adjacent function for the range.

Calculation types:
1. Average
2: Count
3. Count (non-blanks)
4. Maximum
5. Minimum
6. Product
7. Standard Deviation (sample)
8. Standard Deviation (population)
9. Sum
10. Variance (sample)
11. Variance (population)

ADDING A POPUP CALENDAR TO SELECT DATES:

I added a calendar control for the date entry cell using a script I found at
http://www.rondebruin.nl/calendar.htm I modified it for this spreadsheet.
Heres how to add it:

1. Within €œFilteredReport€�,select cell B2.
2. Go to INSERT €“ OBJECT €“ and select CALENDAR CONTROL 8.0. Right-click on
the €œFilteredReport€� tab and select View Code. Paste the following:

Private Sub Calendar1_Click()
ActiveCell.Value = CDbl(Calendar1.Value)
ActiveCell.NumberFormat = "mm/dd/yyyy"
ActiveCell.Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count 1 Then Exit Sub
If Not Application.Intersect(Range("B2,D2"), Target) Is Nothing Then
Calendar1.Left = Target.Left + Target.Width - Calendar1.Width
Calendar1.Top = Target.Top + Target.Height
Calendar1.Visible = True
' select Today's date in the Calendar
Calendar1.Value = Date
ElseIf Calendar1.Visible Then Calendar1.Visible = False
End If
End Sub