Elimina duplicati

[romant]

Salve, ritorno da voi per chiedere un aiuto, ho questa macro per eliminare righe duplicate in un range che va da A2 a F, nelle prove sono poche righe nella realtà sono decine di migliaia. La macro funziona però non mi cancella l'ultima riga, se questa è un duplicato ne elimina le righe vuote dopo la cancellazione dei duplicati. Potete darmi un aiuto per risolvere questo problema? Io mi sono arreso
Posto la macro.

Codice: Seleziona tutto

Sub CancellaDuplicati()
       Dim UR As Long
           Application.Calculation = xlCalculationManual
    Application.EnableEvents = False
    Application.ScreenUpdating = False
   
    UR = Sheets("foglio2").Range("A" & Rows.Count).End(xlUp).Row
      ActiveSheet.Range("A2:F" & UR).RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5), Header:=xlNo
       
          Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
    Application.ScreenUpdating = True
      End Sub


[romant]

Sono riuscito a cancellare le righe rimaste vuote, ma non riesco a cancellare l'ultima riga, se questa è un duplicato.

[Anthony47]

A me il comando RemoveDuplicates lavora correttamente anche sull'ultima riga dell'intervallo. Sei sicuro che il record e' effettivamente un duplicato, o ci sono piccole differenze su qualcuno dei campi? Puoi allegare un file di esempio dove invece non funziona?
Per le istruzioni su come allegare un file:
viewtopic.php?f=26&t=103893&p=605487#p605487

Ciao

[romant]

MI dici come fare per allegare il file?

[romant]

Ho capito il problema devo indicare con il numero riga l'ultima del range:
ActiveSheet.Range("A2:F" & UR).RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5), Header:=xlNo
A2:F21

[romant]

Comunque grazie per l'aiuto….