vba excel - last listbox item transfer erasing all listbox items except last item

I have 2 adjacent listboxes that I transfer items back and forth between. Everything transfers properly between them from the first item down until the last item. But if I select the last item to transfer in either ListBox, the item transfers to its adjacent list, however the rest of its originating list disappears. I've attached a sample workbook so that you can see what I'm talking about. Also ListBox1 actually has more code associated with it that fills from a lookuplist, so that is why there is so much odd coding regarding the ListBox1 fill routine.