dubbele waarden script

[moensk]

via script copieer ik data steeds bij in een ander tabblad.
dit via onderstaand script.
doch ik wil nadien een extra actie "verwijder de dubbele rijen"
hiervoor moet hij kijken naar de waarde in kolom "C"
ik zou dit via "gegevens" kunnen doen en dan kiezen voor "dubbele waarden verwijderen"
doch ik wil dat hij de rij behoudt met laagste rijnr (dus de nieuwst toegevoegde moeten worden verwijdert)

Sub kopie()
With Sheets("Nationaal").ListObjects("vw_TMS_RitRegelsVandaag").DataBodyRange
  .Copy Sheets("afspraken").Range("A" & Rows.Count).End(xlUp).Offset(1)
  .Delete
End With
End Sub

 

[moensk]

even gelezen over dubbele waardes verwijderen en blijkbaar behoudt hij altijd de eerste die hij tegenkomt, wat in mijn geval goed zou zijn
zodoende niet echt script nodig doch moeste iemand het hebben dan zou ik het graag hebben

 

[HSV]

Sheets("afspraken").cells(1).currentregion.removeduplicates 3