In Case yo uhave spaces in you data replace the following statement

from
Data = .Range("A" & Sh1RowCount)
to
Data = trim(.Range("A" & Sh1RowCount))


"kiran" wrote:

Hi All,
I have the follwoing data as shown below -
A
1 BRACES
2 BRACES
3 Primary
4 Primary
5 Oracle
6 BRACES
7 BRACES


my question is I want to pinck the distinct names from column A and to print
in diffrent sheet with count of each my out put should be like...
A B
1 BRACES 4
2 Primary 2
3 Oracle 1


TIA