VBA to show the count of unique records

Hi
I have a excel file were i'm using more than 25000 cells and most of the records in it will be duplicate records. In order to get the unique records im using the "Remove duplicate option" but were as to make my summary report im using a formula to count the unique records thus increasing my file size gradually since im going to use it for more records.

So i wanted to check the possibility to do this using vba to preserve my file size.

It may not be very clear with my explanation, so i have attached the sample file.

Thanks