Word VisualBasic Script

Sub del()
    ActiveDocument.Tables(1).Rows(1).Cells(1).Delete _
        ShiftCells:=wdDeleteCellsEntireRow
End Sub