RBS.Sheets("RBS").Range("I4").End(xlDown).Copy _
Destination:=AccRep.Sheets("Volumes").Cells.Find(" latest").Offset(7, 0)



--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Simon" wrote in message
...
RBS.Sheets("RBS").Range("I4").End(xlDown).Copy
Destintion:=AccRep.Sheets("Volumes").Cells.Find("l atest").Offset(7, 0)

It says Object or Method is not supported. I tried this as well

RBS.Sheets("RBS").Range("I4").End(xlDown).Copy
Destintion:=AccRep.Sheets("Volumes").Cells.Find("l atest").ActiveCell.Offset(7,
0)