Locate data & send an email.

Hi all,

I have been working on this for a day or so, my deadline has been brought forward to well tomorrow.
I have got a working code to automatically allocate data based on the sheet "CP" to sheet "Number Allocation."
What I am attempting and failing to do is write a macro that when I bring up my Userform (Email the trainer) (created) it will sort the data and email each person their allocated data in the body of the email.

For example Mary Smith will be assigned X strings of data in the "Number Allocation" sheet once "Allocate" is pressed. When Email Trainer is pressed I am wanting the sheet to locate all Mary's numbers between the two blocks in Number Allocation and email her those numbers (in Column A) (also retaining their respective original blocks) to the email in sheet CP, Column B. I need it then to loop and complete all trainers in the list on sheet CP.

Hopefully this makes sense, any help would be greatly appreciated.

Thanks, Dan