Help with VB code or Formula to calculate the unique occurrences during a month

I have a worksheet with the following sample data
Day Id
1 22
1 22
1 33
1 44
1 44
2 22
2 33
2 44

What I am trying to do to count unique number of times each Id appears per day.

So in table above I need to derive the following result
Day 1 No of Unique Ids = 3
Day 2 No of Unique Ids = 3

Total number if unique id for all the days = 6

Is there a easy formula or VB code which can give me the above. Basically to find a total of Unique Ids for all the days. I have a file which has over 10000 rows.

Thanks in advance

This worked perfectly. Tank you so much