try this
Sub copytototal()
For Each ws In Sheets
x = ws.Cells(Rows.Count, "a").End(xlUp).Row
If UCase(ws.Name) < "TOTAL" Then
ws.Rows("1:" & x).Copy Sheets("total") _
..Rows(Cells(Rows.Count, "a").End(xlUp).Row + 1)
End If
Next ws
End Sub

--
Don Guillett
SalesAid Software

"Deus DNE" wrote in message
...
Hi,

I have a workbook with x number of sheets in it, each sheet contains x
rows.
The top row being the column titles. I need to write a macro/VB to select
all rows containing data except the title row, and paste them into a total
sheet.

What I really need is something more complex, but this will do for
starters
!

Hope you can help.

TIA

Deus
--
Does Not Exist