poner en una sola hoja varias hojas de un libro de excel

[caesar.l]

Pues si quieres los datos en la primera hoja y suponiendo que en las demás hojas los rangos de datos son del mismo tamaño, se puede utilizar este marco

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

o bien puede hacer algo parecido, pero con un identificador de donde esta la celda vacía

Sub pasar_datos()
Dim i as Integer
Dim j as Integer

j=1
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
While cells(j,1)<> 0

j=j+1

Wend
Cells(j+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