Found the Solution thanks to a publication by Susan Dorey Designs THANK YOU!!

The problem sits with the method for selecting the text, intead use:

Set myRange = ActiveDocument.Tables(2).Cell(Row:=2, Column:=2).Range
myRange.MoveEnd Unit:=wdCharacter, Count:=-1
StitchText = StitchText + myRange.Text