Sub TableJoiner()
Dim oPara As Paragraph
For Each oPara In ActiveDocument.Paragraphs
  With oPara.Range
    If .Information(wdWithInTable) = True Then
      With .Next
        If .Information(wdWithInTable) = False Then
          If .Text = vbCr Then .Delete
        End If
      End With
    End If
  End With
Next
ActiveDocument.Fields.Update
End Sub

Sub SetNumRecsAndMerge()
  Dim mm As Word.MailMerge
  Dim dlgOpen As FileDialog

  ActiveDocument.MailMerge.MainDocumentType = wdCatalog
  
  Set mm = ActiveDocument.MailMerge
  Set dlgOpen = Application.FileDialog(FileDialogType:=msoFileDialogFilePicker)
    
  With dlgOpen
    .AllowMultiSelect = False
    .Filters.Add "Text Files", "*.txt"
    .Filters.Add "Comma Files", "*.csv"
    If .Show = -1 Then
      FileName = .SelectedItems.Item(1)
    End If
  End With
  
  mm.OpenDataSource _
      Name:=FileName, ConfirmConversions:=False, ReadOnly:=True, _
      LinkToSource:=True, AddToRecentFiles:=False, PasswordDocument:="", _
      PasswordTemplate:="", WritePasswordDocument:="", WritePasswordTemplate:="", _
      Revert:=False, Format:=wdOpenFormatAuto, Connection:="", _
      SQLStatement:="SELECT * FROM DPAS_SubHandReceipt.txt ORDER BY Sub_Custodian_Nbr, Asset_Id", _
      SQLStatement1:="", SubType:=wdMergeSubTypeOther
  
  mm.DataSource.ActiveRecord = wdLastRecord

  If ActiveDocument.CustomDocumentProperties("NumRecords") > 0 Then
    ActiveDocument.CustomDocumentProperties("NumRecords").Value = _
                   mm.DataSource.ActiveRecord
  Else
    ActiveDocument.CustomDocumentProperties.Add Name:="NumRecords", _
                  Value:=mm.DataSource.ActiveRecord, _
                  Type:=msoPropertyTypeString, LinkToContent:=False
  End If
  
  mm.Execute
  Call TableJoiner
End Sub

Sub TableJoiner()
  Dim oPara As Paragraph
  Dim DelFlag As Boolean
  
  DelFlag = True
  Application.ScreenUpdating = False
  
  While (DelFlag = True)
    DelFlag = False
    For Each oPara In ActiveDocument.Paragraphs
      With oPara.Range
        If .Information(wdWithInTable) = True Then
          With .Next
            If .Information(wdWithInTable) = False Then
              If .Text = vbCr Then
                .Delete
                DelFlag = True
              End If
            End If
          End With
        End If
      End With
    Next
  Wend
  
  Application.ScreenUpdating = True
  ActiveDocument.Fields.Update
End Sub

IF{MERGESEQ{={DOCPROPERTY NumRecords}}}