It might be that JE's doesn't count the last row unless you are on sheet1
try

Set rSource = Worksheets(1).Range("A7:C" & _
worksheets(1). Range("A" & Rows.Count).End(xlUp).Row)

or mine

--
Don Guillett
SalesAid Software

"dundonald" wrote in message
...
"Don Guillett" thoughtfully wrote:

How many should it have copied? Didn't your OP say to the last row?

that's correct. There are about 150 rows. I've checked the range in the
code
that J.E gave and it looks fine. Strange.

--