Удаление лишних пробелов в начале и в конце строк ячеек таблицы

Удалить лишние пробелы по краям строки можно функцией Trim и её разновидностями LTrim и RTrim, для обрезки слева и справа соответственно.
Для ячейки это будет выглядеть так

Sub TrimCellText()
  Dim oCell As Cell
  For Each oCell In Selection.Tables(1).Range.Cells
    oCell.Range.Text = Trim(Left(oCell.Range.Text, Len(oCell.Range.Text) - 2))
  Next
End Sub

Функция Left используется, чтобы убрать из текста ячейки два последних невидимых символа: знак абзаца и знак конца ячейки
Ну а начало ячейки, вернее, номер символа, с которого она начинается, определяется просто:

Selection.Cells(1).Range.Start 'Для ячейки, в которой стоит курсор