'Process column 2 Set oCell = oRow.Cells(2).Range oCell.End = oCell.End - 1 Set oPara = oSource.Paragraphs(i + 4).Range oPara.End = oPara.End - 1 oCell.FormattedText = oPara.FormattedText