I am still trying to get a count of unique values in a filtered column

The formula which someone posted does not work. (I get a #NAME error) from the following formula

=COUNTDIFF(IF(SUBTOTAL(3,OFFSET(A6,ROW(A6:A10)-MIN(ROW(A6:A10)),,1)),A6:A10))-(COUNTA(A6:A10)<SUBTOTAL(3,A6:A10)

I tried writing a function in VB as follows using the 'find' method

Function CtUnqFiltered(rng As Range) As Lon
Dim fc As Excel.Rang
Dim ct As Lon
ct =
For Each c In rng.Cell
If (Not rng.Rows(c.Row - rng.Rows.Count).Hidden) And (Not IsEmpty(c)) The
Set fc = rng.Find(what:=c.Value, after:=c
If (fc Is Nothing) Then ct = ct +
End I
Nex
CtUnqFiltered = c
End Functio

This function should work, only counting the last of a unique value in the list, using the 'Find' The problem is that the 'Find' always returns nothing(never finds the value), even if there is another of the same value later in the range. Am i doing something wrong with the 'find'? The doc says it should return a the cell where it finds the value

TIA
DOTJake