Macro to count distinct values for each date

Hi!

I have been googling around for some help on this issue and cannot seem to find anything for using VBA to give me a count of distinct values by date. Here is some data:
ID Status Date
Thing-1 Open 5/13/2016
Thing-2 Open 5/17/2016
Thing-3 Open 5/31/2016
Thing-4 Done 5/25/2016
Thing-5 Done 5/26/2016
Thing-6 Done 5/26/2016
Thing-7 Open 5/26/2016
Thing-8 New
Thing-9 Open 5/31/2016
Thing-10 New
Thing-11 Done 5/25/2016
Thing-12 New
Thing-13 Open 5/27/2016
Thing-14 Blocked 5/26/2016
Thing-15 New
Thing-16 New
Thing-17 Blocked 5/26/2016
Thing-18 Done 5/31/2016
Thing-19 Done 5/30/2016
Thing-20 Open 6/1/2016

After the macro is run, I need something like this to be pasted into a designated worksheet (e.g. Sheet3).
5/13/2016 Open 1
5/17/2016 Open 1
5/25/2016 Done 2
5/26/2016 Done 2
5/26/2016 Open 1
5/26/2016 Blocked 2
5/27/2016 Open 1
5/30/2016 Done 1
5/31/2016 Open 2
5/31/2016 Done 1
6/1/2016 Open 1

The items with no date would not show up (minor detail). I realize there are ways of doing this with Pivot tables or formulas with countif, sum, etc. I know how to spew out a count of distinct values, but I do not see how to add the "by date" criteria.

Help will be greatly appreciated!

--Jim

Do you need a macro? Pivot table will do it neatly for you (see sheet two of the attached).

If you really need a macro you could record a macro to prepare the pivot table