codice:
Sub diversi2()
Application.ScreenUpdating = False
Dim i, j As Long
Dim confronta As Variant
j = 1
For i = 7 To 12
confronta = Application.Match(Range("a" & i), Range("A2:A6"), 0)
    If IsError(confronta) Then
        Range("e" & j) = Range("a" & i)
        j = j + 1
    End If
Next i
ultimariga = Range("e65536").End(xlUp).Row
Range("e" & ultimariga + 1).Formula = "=SUM(IF(FREQUENCY(MATCH(e1:e" & ultimariga & ",e1:e" & ultimariga & ",0),MATCH(e1:e" & ultimariga & ",e1:e" & ultimariga & ",0))>0,1))"
Range("e" & ultimariga + 1).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Range("e1:e" & ultimariga).ClearContents
Range("e" & ultimariga + 1).Select
Selection.Cut
Range("E1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Adesso il conteggio non risente della presenza di eventuali doppioni. Fammi sapere.