copy tables from word without repeating header

[snb]

Sub M_snb()
   with getobject("G:\OF\invoice.docx")
     For Each it In .Tables
        If InStr(it, "Description") Then c00 = c00 & vbCrLf & it
     Next
     .close 0
   end with

   CreateObject("scripting.filesystemobject").createtextfile("G:\OF\tbles.csv").write Replace(Join(Filter(Split(c00, vbCr & Chr(7) & vbCr & Chr(7)), "Description", 0), vbCrLf), vbCr & Chr(7), ",")
   Workbooks.Open "G:\OF\tbles.csv"
End Sub