Dim sh as Worksheet
for each sh in worksheets(Array(1,3,5,8,9))
sh.Range("A1").currentregion.copy _
worksheets(4).Cells(rows.count,1).End(xlup)(2)
Next

--
Regards,
Tom Ogilvy


"jln" wrote:

Um trying to create a macro that counts all the rows on one sheet in say 5
rows abcde then go to the last record before a null or blank cell then takes
thoses five records and copys and paste them over to another worksheet. I
then want the Macro to go to another worksheet and do the same as above but
it needs to paste thoses records onto the same worksheet as above but below
the already pasted records. The number of lines could change as well that
will need to be pasted.