Hi plk,

Try this:

Sheets("Sheet1").Range("D10").Formula = "=SUMPRODUCT((A2:A10000<>"""")/COUNTIF(A2:A10000,A2:A10000&""""))"
HTH

Robert