Excel - Suma total de registros

hola a todos, Tengo este código el cual me despliega en una etiqueta que tengo en mi User form los duplicados encontrados en mi rango "state"
Pero ahora necesito que me sume el total de registros encontrados se saben cuál es la función para eso, alguien me puede acomodar mi código, gracias.
-------------------------------------------------
Sub RemoveDuplicates1()
Dim AllCells As Range, Cell As Range
Dim NoDupli As New Collection
On Error Resume Next
For Each Cell In Range("State")
NoDupli.Add Cell.Value, CStr(Cell.Value)
Next Cell
On Error GoTo 0
For Each Item In NoDupli
UserForm1.ListBox1.AddItem Item
Next Item
UserForm1.Label1.Caption = _
"Archivos Unicos: " & NoDupli.Count
UserForm1.Show
End Sub