Seleccionar página
https://upload.wikimedia.org/wikipedia/commons/thumb/8/86/Microsoft_Excel_2013_logo.svg/2000px-Microsoft_Excel_2013_logo.svg.png 

Si por algún motivo has necesitado pasar el contenido de varias hojas de excel a una sola sabrás lo tedioso que resulta realizar dicha tarea. Pues bien, a continuación transcribo el macro el macro que me encontré en internet y que me ayudó a realizar dicha tarea en cuestión de segundos!


Macro:
»

Sub pasar_datos()
Dim i as Integer

For i = 2 To Sheets.Count

Sheets(i).Select ‘Selecciona la hoja a copiar
Range(«A1:M500»).Copy ‘Selecciona el rango a copiar
Sheets(1).Select ‘Selecciona la primera hoja
Cells(i * 500 + 1, 1).Select ‘Hace un despazamiento vertical para evitar que los datos se sobre escriban
ActiveCell.PasteSpecial ‘Se pegan los datos


Next
i

End Sub
«

Lo unico que necesitas es crear una hoja nueva y ejecutar el macro (Alt + F8).

Descarga el archivo en el siguiente link:


Descargar