Place this macro in a regular module and execute from the destination sheet
1.

Sub bringinallsheetstoone()
For i = 2 To Sheets.Count
With Sheets(i)
dlr = Cells(Rows.Count, "a").End(xlUp).Row + 1
slr = .Cells.Find(What:="*", After:=[A1], _
SearchDirection:=xlPrevious).Row
.Rows(2).Resize(slr).Copy Rows(dlr)
End With
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Its me" wrote in message
...
Hi
I have 80 excel datasheets with identical headers in each
I want to bring them all into one sheet is this possible without cutting
and pasting each?
Many thanks in advance
(My first post)
Stephen