Unique Count Of Range - Vba Coding

how to count unique records, and I can only find formulas, and not code. This code works fine, and I get the right "actual" count, but I need to change it to a unique values count.


Sub CountEmployees()
lastrow = ActiveSheet.UsedRange.Rows.Count
For t = lastrow To 2 Step -1
If Cells(t, 8).Value <> "" And Cells(t, 8).Offset(2, 4).Value <> "" Then
Cells(t, 12).Select
Selection.Offset(1, 0).Select
Range(Selection, Selection.End(xlDown)).Select
List = Selection.Cells.Count ' Need to make this unique count
Cells(t, 9).Value = List
End If
Next t
End Sub