Well I think it's going to be impossible without some copying.
Do you mean you want to automate the copying/pasting rather than doing it manually?
Code:
Sub CompileWS()
Dim wsNew As Worksheet
Dim wsData As Worksheet
Dim LastRowSrc As Long
Dim LastRowDst As Long
Set wsNew = Worksheets.Add
LastRowDst = 1
For Each wsData In Worksheets
If wsData.Name <> wsNew.Name Then
LastRowSrc = wsData.Range("A" & Rows.Count).End(xlUp).Row
wsData.Range("A1").Resize(LastRowSrc).EntireRow.Copy wsNew.Range("A" & LastRowDst)
LastRowDst = LastRowDst + LastRowSrc
End If
Next wsData
End Sub
/quote]
Thanks for the quick reply.
I'm sorry I don't understand what this means???