Attribute VB_Name = "RemoveDuplicates"
' Elimina filas duplicadas de un rango seleccionado considerando todas las columnas.
Sub RemoveDuplicateRows()
    Dim rng As Range, cols() As Variant, i As Long
    On Error Resume Next
    Set rng = Application.InputBox("Selecciona el rango (con encabezados):", _
                                   "Eliminar Duplicados", Selection.Address, Type:=8)
    On Error GoTo 0
    If rng Is Nothing Then Exit Sub

    ReDim cols(0 To rng.Columns.Count - 1)
    For i = 0 To rng.Columns.Count - 1
        cols(i) = i + 1
    Next i

    rng.RemoveDuplicates Columns:=(cols), Header:=xlYes
    MsgBox "Filas duplicadas eliminadas.", vbInformation
End Sub