Adicional a la propuesta con VBA adjunto archivo con otros tres opciones: Función unicos (Office 365) Power Query Tablas dinámicas Unicos.xlsx

Muchas gracias Gerson, lo voy a revisar!! 👍

Hola Te adjunto un ejemplo, solo presiona el botón, pero en próximas dudas sube tu el archivo   Saludos Libro1.xlsm

Los títulos de la fila 1 en ambas hojas han de coincidir exactamente. Sub CopiarPorNombre() For y = 1 To Hoja1.Cells(1, Columns.Count).End(xlToLeft).Column Set columna = Hoja2.Rows(1).Find(Hoja1.Cells(1, y), , , xlWhole) If Not columna Is Nothing Then Hoja1.Columns(y).Copy Hoja2.Columns(columna.Column) Next End Sub