Inserting rows with same format

[Andy]

Question 1: How do you insert a row shifting everything
else down.

Question 2: Keep the same format as was in the row
originially. (Borders and font color)

Here is my current code in VB.NET for Excel 2k which does
not insert.

' Loop through all the parts
For i As Integer = 0 To partSet.Parts.Count - 1
' Set the range to output to
Dim WSRange As Object = WorkSheet.Cells
(PartList_Row_Index, "A").Resize(1,
modPartSelection.ROW_ITEM_LENGTH)
With WSRange
' Give the range the information
.Value = partSet.Parts(i).PartData
' Set the highlight color
.Interior.Color = color
End With
' Move to next row
PartList_Row_Index += 1
Next