All those Selection statements make my eyes water. You could do all of this without selecting anything...

Be that as it may, the simple remedy for your commented-out lines is:
ActiveDocument.Tables(23).Cell(1, 2).Range.Text = vbNullString

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]