Sub TableDeconstructor()
  Dim i As Integer, aRng As Range
  For i = ActiveDocument.Tables.Count To 1 Step -1
    With ActiveDocument.Tables(i)
      If .Columns.Count > 1 Then
        .Columns(2).Select
        Selection.Cut
        Set aRng = .Range
        aRng.Collapse Direction:=wdCollapseEnd
        aRng.Select
        Selection.Paste
        .ConvertToText
      End If
    End With
  Next i
End Sub