Word VisualBasic Script

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