This should be sufficient.

sub M_snb()
  with getobject("G:\OF\example.docx")
    for each sh in sheets
      sh.listobjects(1).range.copy
      .content.insertafter string(6,vbcr)
      .content.paragraphs.last.range.paste
    next
  end with
End Sub