Advanced Filters to Sort data using VBA

Hi want to Generate a report using Filters in VBA.. I manually use filters on phone bills.. Kindly Help me to make data shown below:

CallType Party ID Datetime Duration Cellid Imei
InComing Party10 17/07/2015 09:44 555 8410B249 IMEI NO 5
Outgoing Party5 17/07/2015 18:08 3 84102515 IMEI NO 5
InComing Party15 17/07/2015 19:48 35 84102515 IMEI NO 5
Outgoing Party3 17/07/2015 22:20 48 84102515 IMEI NO 5
InComing Party12 17/07/2015 22:21 39 84102515 IMEI NO 5
Outgoing Party3 17/07/2015 22:26 25 84102515 IMEI NO 5
InComing Party3 17/07/2015 22:31 41 84102515 IMEI NO 5
InComing Party3 17/07/2015 22:33 13 84102515 IMEI NO 5
InComing Party15 17/07/2015 22:41 75 84102515 IMEI NO 5
InComing Party15 17/07/2015 22:43 20 84102515 IMEI NO 5
..
..
..
................... monthly details..............................

Result should be :
Party ID InComing Incoming SMS Outgoing Outgoing SMS Grand Total
Party10 1 0 0 0 555
Party5 0 0 1 0 3
Party15 3 0 1 0 130
Party3 2 0 1 0 102
Party12 1 0 0 0 39

Any Help will be Appreciated.... Regards

But i didnt got the solution... Please Help me save my butt