"Tom Ogilvy" wrote in message ...
Dim sh as Worksheet
Dim rng as Range
for each sh in ActiveWorkook.Worksheets
if sh.name < "Summary" then
set rng = sh.Range("A1").CurrentRegion
' don't include the header row
set rng = rng.offset(1,0).Resize(rng.rows.count-1)
rng.copy Destination:=worksheets("Summary") _
.Cells(rows.count,1).End(xlup)(2)
end if
Next

What a helpful group this is. Thanks to everyone that answered me,
specially to Tom who’s solution I used.

Best Regards

--
S.B.