Sub EliminarDuplicados()
Dim ws As Worksheet
Dim ultimaFila As Long
' Referencia a la hoja "Salida"
Set ws = ThisWorkbook.Sheets("Salida")
' Determinar la última fila con datos en la columna "A"
ultimaFila = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
' Definir el rango de datos incluyendo encabezados (asume que los datos empiezan en A1)
Dim rangoDatos As Range
Set rangoDatos = ws.Range("A1:F" & ultimaFila) ' Ajustar rango según las columnas
' Eliminar duplicados en el rango especificado
' Asumiendo que los duplicados se basan en todos los campos (columnas)
rangoDatos.RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6), Header:=xlYes
MsgBox "Duplicados eliminados exitosamente", vbInformation
End Sub
