Eliminar Filas Duplicadas

Quiero prepararme un pequeño programa para que me elimine las filas duplicadas. Lo podría hacer manualmente con la opción de Quitar duplicados pero quiero programarlo para que con un call luego lo pueda meter en un botón junto con otra ejecución. He utilizado este pero me va lentísimo y creo que es porque se pone a recorrer todas las celdas… A ver si alguien me echa una mano!

Option Explicit  Sub EliminarDuplicados()   'Elimina filas duplicadas sólo si son consecutivas,      Dim Rango As Range     Dim filaAnterior As Range, fila As Range     Dim indice As Integer      Set Rango = ActiveCell.CurrentRegion     Set filaAnterior = Rango.Rows(1)     indice = 2      Do While indice <= Rango.Rows.Count         Set fila = Rango.Rows(indice)         If RangosIguales(fila, filaAnterior) Then             fila.Delete         Else             Set filaAnterior = fila             indice = indice + 1         End If     Loop End Sub`