Would like to copy rows until specific value is found

[caooi23]

Hi,
Would like to copy all rows/range to another worksheet, even blank. In this case, all rows before the "1 total" are to copy to group1 sheet, and rows between total 1 and total 2 are to group1 sheet. How to write a code to run this?

thks&rgds,
Ann

[JBeaucaire]

Try this:

Please Login or Register  to view this content.

[caooi23]

Hi JBeaucaire,
Thanks. You are superb!

btw, I have longer range to copy, so I changed the range as below, it able to capture the whole range I want, but it wouldn't stop running? As I have total 50 numbers, and it will repeat number 1, after the 50?


Set Titles = Sheets("Sheet1").Range("A1:Z1")

Set NumRNG = Intersect(Sheets("Sheet1").Range(Num.Address, Num.End(xlDown).End(xlToRight).Address), Sheets("Sheet1").Range("A:Z"))

rgds,
Ann

[caooi23]

Hi JBeaucaire,
Test again and it runs well. Thanks.

rgds,
Ann

[JBeaucaire]

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED. Thanks.