Sub insert() Documents("Tables.doc").Tables(1).Rows(1).Cells.Add _ BeforeCell:=Documents("Tables.doc").Tables(1).Rows(1).Cells(2) End Sub