trying to copy quantities without using copy paste? "subscript out of range"

gday,
I have posted this problem a few days ago and marked it as solved but when i tried to use the process on another emailed list it came up with "subscript out of range".
I have attached the new email that is in a bit of different layout. I beleive this to be the reason. I have attached original also to see the difference in layout. Ill also attach the program that alansidman wrote/posted for me .
The program worked on the original, but wont seem to work on others.
Is this problem because of the way the second list is written or is there something i have done wrong?
The program duplicates the labels and copies them in a list in multiples of quantities