Need Macro Code

[Amish]

Hi !

I want code for making one of my report.
Actually what is done is I get one Report everyday with Some Title with Yesterday DATE in name.
in that report I work only on one Sheet name "SS Registrations".
Now in this Sheet first i apply Filter in 1st Title Row, After applying filter i put some criteria in 4row , code for autofilter is something like --

Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:="0"

After that i copy filter data into new Workbook.There i apply following tow types of subtotal ----
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(2), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True

Selection.Subtotal GroupBy:=1, Function:=xlCount, TotalList:=Array(2), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True

After each subtotal i copy only Total & Count data into notepad and again paste into new workbook.

After doing all this i get 3 columns of data which is my report requirement.
Hence i would be really thankful if someone writes Code as per procedure explain above.

I have try doing using Record macro type but it is too lengthy and not working properly.

 

[Amish]

Hi All!

Plz advise me some code or atleast show me how to copy data after applying filter and also appying subtotals .

 

[Amish]

Is everyone finding this macro very simple !
I really need this macro !!!! so plz comment !!!