使用Excel VBA来计算和打印不同的值。

I have to count number of distinct values from a column and print it with the distinct value and count in another sheet. I am working with this piece of code, but for some reason, it is not returning any result. Could anyone tell me where I am missing the piece!I have to count number of distinct values from