Extract of line items or entries having unique *6 digit ref* - using Macro VBA

Hi Excel experts,

I was trying to extract only those entries, which has a unique 6 digit reference, in their description. Ex: *123456*

As, the number of such entries & with entries not having the unique reference (orange colored) are more, totals to 350. Looking for a Macro to do this task.

One requirement - there are 3 kind of line tems with unique ref- having corporation, R.B.O.S & Barclays Bank terms - which should be excluded, and consider as non ref group (Highlighted red)

Also, appreciate once the unique ref gets identified - the full row gets copied and pasted from 60th line & rest not having ref after 100 th line. of the same tab.

Attached a sample sheet with 2 currency!! Please let me know if any questions.

Thanks a lot in advance!

Regards
Ram