Экстракт Уникальный список & find Maximum

Этот код пытается создать уникальный список имен с максимальными значениями, но имеет некоторые ошибки, if Not Exists . Можете ли вы помочь мне решить проблему?

 Sub UniqeMAX() Dim Rng As Range Dim Dn As Range Set Rng = Range(Range("A2"), Range("A" & Rows.Count).End(xlUp)) With CreateObject("scripting.dictionary") .CompareMode = vbTextCompare For Each Dn In Rng If Not.Exists(Dn.Value) Then .Add Dn.Value, Dn(, 3) Else .Item(Dn.Value) = Application.max(.Item(Dn.Value), Dn(, 3)) End If Next Range("D1").Resize(.Count, 3) = Application.Transpose(Array(.Keys, .Items)) End With End Sub 

Давайте будем гением компьютера.