macro creating multiple shapes and cannot delete shapes

I have a spreadsheet with over 500 entries I use for emailing members of a table tennis club. I'm limited to 100 entries per email in outlook 2016 so I have separated them in to different worksheets in my workbook.

I have all entries in worksheet named "All Entries Sorted" then I have a macro that distributes them to 8 worksheets (75 entries per worksheet). That macro is named "Redistribute". I also have two other macros "DeleteAnEmail" and "AddAnEmail".

I have 2 shapes which are assigned to those 2 macros. Both macros run correctly in distributing the entries properly, however each time I run "AddAnEmail" from the "All Entries Sorted" worksheet a new shape is generated in the "Group 1" worksheet. I have no clue how that is happening and why it occurs only in the "Group 1" worksheet.

I also have a problem trying to delete the added shapes - it seems to add a new shape each time I want to add and email to the list, but when I right click on the shape the hit "Cut" nothing happens and the shape stays.

I now have 20 shapes in "Group 1" where I do not want any shapes - the only shapes I set up and attached to the macros are in the "All Entries Sorted" sheet.

I did not notice the problem on group 1 until I had run several adds to the list.

I appreciate any suggestions as to why the shapes are being produced and how to delete the unwanted shapes.

I changed all email names and all other personal info in the attachment to this post.

I added the line of code [code] Application.CutCopyMode = False [\code] to the group 1 code but same thing occured.

I have decided on doing a work-around, so will close this thread as solved.

thanks so much for you help