Does this do what you're looking for?
Sub test()
Dim i As Integer, numu As Integer
numu = 0
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For i = 2 To UsedRange.Rows.Count
If Range("V" & i).Value = "" Then GoTo nxt
If WorksheetFunction.CountIf(Range("V:V"), Range("V" & i).Value) < 2 Then numu = numu + 1
nxt:
Next i
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
MsgBox numu & " unique values in column V"
End Sub
Please click the * below if this helps
Bookmarks