Converting a Table or Rows to Text
Sub sep() Selection.Tables(1).ConvertToText Separator:="*" End Sub