Range("A:A").Find("Jellybeans").Offset(1,0).Resize (4,9).copy _
Destination:=Worksheets("Sheet2").Range("A1")

--
Regards,
Tom Ogilvy


"Duncan J" wrote in message
...
I get a report each week. where the data will not be in order and you can
not filter by name.
Example.
Jellybeans Early10Days Early6-10Days Early1-5Days Early/Late0Days
Late1-5Days Late6-10Days Late10Days EarlyTotals
Data Data Data Data
Data Data Data Data Data
Data Data Data Data
Data Data Data Data Data
Data Data Data Data
Data Data Data Data Data
Data Data Data Data
Data Data Data Data Data
Soap Early10Days Early6-10Days Early1-5Days Early/Late0Days Late1-5Days
Late6-10Days Late10Days EarlyTotals
Data Data Data Data
Data Data Data Data Data
Data Data Data Data
Data Data Data Data Data
Data Data Data Data
Data Data Data Data Data
Data Data Data Data
Data Data Data Data Data

So, Sometimes Jelly beans and the 5 rows of data are A16-I20. Next time
the report is run Jellybeans is A34-I38. Is thier a way to macro what I need
without selectin a certain row. Where Jellybean is the taget and it will
copy 9 colums to the right and 4 rows below it?
Thanks, DJ