Macro to reliably concatenate bullet list phrases

Hello!

I have scheduled events that get put into Word and they look like this:

• 4 – 7pm
• Putt-Putt in the Park
• Little Debbie Park
• 4 – 6pm
• Discovery Tutors - Open Hours Downtown
• Downtown Library, 1001 Broad Street, Chattanooga, TN, 37402, United States

etc.

There can be hundreds of these and I copy-and paste them from Google Calendar into Word every day for many years now as a long bulleted list. Since they are three lines (or sometimes two), I try and make them so they are all one line separated by commas. So:

• 4 – 7pm, Putt-Putt in the Park, Little Debbie Park
• 4 – 6pm, Discovery Tutors - Open Hours Downtown, Downtown Library, 1001 Broad Street, Chattanooga, TN, 37402, United States

So, I have a macro that does it now for each one (because sometimes there are two lines and sometimes three), but the cursor winds up not at the end when it is done, sometimes, it only moves some of the line, etc. If I change the font size from 12 to 8 for those longer lines, the macro works fine....??

So, put the cursor in front of "4", run macro, works fine when just a little text, cursor goes to end of line

For next one, put cursor in front of "4", run macro, when done, cursor winds up after "Chattanooga" instead of after "United States"...???

Anyway, here is the macro I'm using:

Sub Macro2()

Selection.EndKey Unit:=wdLine, Extend:=wdMove

Selection.TypeText Text:=", "

Selection.Delete Unit:=wdCharacter, Count:=1

Selection.EndKey Unit:=wdLine, Extend:=wdMove

Selection.TypeText Text:=", "

Selection.Delete Unit:=wdCharacter, Count:=1

Selection.EndKey Unit:=wdLine, Extend:=wdMove

End Sub

I appreciate your help and info.

Regards!