If Selection.Cells.Count >= 1 Then
Selection.InsertCells ShiftCells:=wpsInsertCellsShiftRight
For Each aBorder In Selection.Borders
aBorder.LineStyle = wpsLineStyleSingle
aBorder.Color = wpsColorRed
Next aBorder
End If