Code for selecting a "floating" range

I am pulling in some data from the web...since the data that is pulled in can move around on me, I am using code to find a specific word and then using an offset to select and activate the first cell in a range of 10 cells I want to copy...

...now is there a code that would select the current active cell plus the 9 cells below it?? Maybe using R1C1 to have it step down 9 cells selecting all ten cells???

Of course, this would be really simple if I could count on those ten cells being in the exact same range everyime, but they aren't.

Here is my code so far:

Sheets("DataTemp").Select
Cells.Find(What:="Related Companies", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Offset(3, 1).Select

...Now how do I also tell it to highlight and select the 9 cells under the current active cell so I can copy and move the data in all ten cells?

A code snip it or any help would be greatly appreciated!

Thanks