need help to copy rows to a new sheet depend on a cell value

Hi all,
I need to copy some rows with a specific Value in a Column from sheet1 called "Germany" to Sheet2 called "GIZ".
Example:
Sheet1 "Germany"
Iteam Reference Location
A 1 Germany
B 1 France
C 1 UK
D 2 Italy
E 3 USA
F 3 China

The thing is I don't know the order in Column "Reference" all I know is that they are grouped, but maybe 3 come before 1 or 2 etc..
And I need to keep that order too.

Now I want to copy all Rows with the Reference Nbr 1 and 3 to Sheet2 "GIZ" if possible sorted and grouped like in sheet1

I did a small macro, but i discovered that he missed some rows, and as Sheet1 has more than 3000 rows is difficult to check if he did everything or not.

OH before i forgot I want that he skip the reference and continue with the next one if the reference value is not there in sheet1


Here is my Macro as you see I have here 7 Value as reference.

Please Login or Register  to view this content.

any help?....

ehhhhmmmmmmmmmmmmmm
I have no Idea I tested the same code without any changes at all on a new data in Sheet1 and now it's working perfectly... I tested it again with the old file and.... it's working ???!!!! +
thank you anyway for your help