Duplikaatit ja tietueiden poistaminen

Ongelma on siis sellainen, että pitää verrata kolmen eri sarakkeen (Project, Status ja Tarjoussumma) tietoja ja pystyä poistamaan turhat rivit.
1. Jos Project sarakkeesta ei löydy duplikaattia rivi saa jäädä koskemattomaksi.
2. Jos Project sarakkeesta löytyy yksi tai useampi duplikaatti on verrattava Status saraketta ja jos Statuksena on WON niin kyseinen rivi jää, mutta muut rivit pitäisi saada poistettua.
3. Jos Project sarakkeesta löytyy yksi tai useampi duplikaatti ja kaikilla niillä on Status sarakkeessa arvona INPROG niin täytyy verrata Tarjoussumma sarakkeen arvoja kyseisillä riveillä ja jättää jäljelle se rivi jossa arvo on pienin ja poistaa muut rivit.

Oletus: tiedot ovat Sheet1:n sarakkeissa A-C ja ensimmäinen rivi on otsikko.

Sub PoistaDuplikaatit()
    With ActiveWorkbook.Worksheets("Sheet1").Sort
      .SortFields.Clear
      .SortFields.Add Key:=Range("A:A"), Order:=xlAscending
      .SortFields.Add Key:=Range("B:B"), Order:=xlDescending
      .SortFields.Add Key:=Range("C:C"), Order:=xlDescending
      .SetRange Range("A:C")
      .Header = xlYes
      .MatchCase = False
      .Orientation = xlTopToBottom
      .Apply
    End With
    r = 1
    Do
      If Cells(r, 1) <> Cells(r   1, 1) Then
        r = r   1
      Else
        Rows(r   1).Delete
      End If
    Loop Until Cells(r, 1) = ""
End Sub

Kiitos Paljon!
Homma toimi kun muutin oikeat sarakkeet ja hinta-sarakkeelle xlAscending xlDescending:n sijaan.
Olikin aika yksinkertainen juttu loppujen lopuksi (jos sen osaa)

Vielä kerran paljon kiitoksia.