Xavier! Try:
Sheet1:
--------------------------------------------------
A B C D E F G H
1 Data
2 2192
3 3334
4 2343
5 2192
6 5553
7 2343
8 .
9 .
--------------------------------------------------
Module1:
--------------------------------------------------
Sub Summary()
Dim R As Long
R = Cells(Rows.Count, "A").End(xlUp).Row
If R < 2 Then Exit Sub
Range("F:H").ClearContents
Range("A1:A" & R).AdvancedFilter _
Action:=xlFilterCopy, _
CopyToRange:=Range("F1"), _
Unique:=True
R = Cells(Rows.Count, "F").End(xlUp).Row
If R < 2 Then Exit Sub
Range("G2:G" & R).Value = "'="
Range("H2:H" & R).Value = "=COUNTIF($A:$A,F2)"
Range("F:H").EntireColumn.AutoFit
End Sub
--------------------------------------------------
--
Regards,
Soo Cheon Jheong
Seoul, Korea
_ _
^¢¯^
--