Hi . i want to use this formula =SUMPRODUCT((A2:A10000<>"")/COUNTIF(A2:A10000,A2:A10000&"")) on cell D10 in sheet 1, how do i write it using vba ?? can some one help