Selecting a print range using a filter/subtotal macro

[JerseyRick]

I use excel to track checks received by our department. I created a macro which only shows the checks received today and creates subtotals based on the pay to field. When I first set this up, it worked fine. However for subsequent days the only thing printing is the header row.

How can I modify the macro below to print only the cells visible with the filter

I appreciate any help provided


Sub Create_Daily_Summary()
'
' Create_Daily_Summary Macro
'

'
ActiveSheet.Range("$A$1:$G$648").AutoFilter Field:=1, Criteria1:= _
xlFilterToday, Operator:=xlFilterDynamic
Selection.Subtotal GroupBy:=2, Function:=xlCount, TotalList:=Array(7), _
Replace:=False, PageBreaks:=False, SummaryBelowData:=True
Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(7), _
Replace:=False, PageBreaks:=False, SummaryBelowData:=True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Selection.RemoveSubtotal
ActiveSheet.Range("$A$1:$G$648").AutoFilter Field:=1
End Sub

 

[edmitchell]

Hi, can you provide a sample of your data?

I've created my own, and run the macro and it works fine!