Per has already solved the overall problem, but here is what I am referring
to:

klstrw = Cells(Rows.Count, "A").End(xlUp).Row

This line of code refers only to the ActiveSheet so that when you use it
he

..Rows(i).Copy Workbooks("X").Worksheets("sheet1").Cells(iNextRow ,
"A").Offset(klstrw + 2, 0)

The Offset is based on a fixed value from the ActiveSheet, so you could just
as well have used a fixed integer value, since "klstrw" has no relevance to
the Workbooks("X").Worksheets("sheet1").


"Len" wrote in message
...
Hi Per,

Thanks for your kind response and your suggestion codes
It works perfectly !


Hi JL,

Thanks for your kind advise and I was a bit confused on how to use
offset to replace klstrw variable in this situation
It would be great if you could share your codes to use offset method
to make the above codes works

Thanks again for all your helps

Regards
Len