Word VisualBasic Script

Sub addRow()
    Documents("yourDoc.doc").Tables(1).Rows.Add BeforeRow:=1
End Sub