set rng = Range(Selection,Selection.End(xldown)).EntireRow
rng.copy Worksheets("Summary").Cells(rows.count,1).End(xlup )(2)

--
Regards,
Tom Ogilvy


"MFR" wrote in message
...

I'm trying to find a row with a certain date, select a range beginning
with
that row until next empty row THEN

pasting into exsisting summary sheet. This should loop through each
worksheet. Each range will be of variable length per sheet.

any good sources for true beginners? tips, tricks are welcome.