I think I could get this to work if I just knew how to select a range
once I find "run number"

I want to offset over on colum and then from there copy one row 25
colums over.

In another area I want to copy 6 rows 10 colums over.

I tried this
ActiveCell.Offset(0, 1).Select
ActiveCell = r1
ActiveCell.Offset(0, 25) = r2
Range(("r1"), (r2)).Select

but I have no clue what I am doing.....