Drag values from one list to another

Hello All

I have attached a sheet to hopefully help show what I am having trouble with.

I would like a userfom where I can drag values from one list to another. the attached file shows some code that I have found but as you will see once the value has been draged to the other list it doesn't leave the first list.

Does anyone know if it is possible to move the value from one list to another and remove the value from the orginal list.

Any help would be great.

Thanks in advance.

Jim