Код меняет границы в диагонали, однако другие ячейки также меняются после вставки значения?

Question

Я столкнулся со странной проблемой в разделе форматирования моего кода.Функция кода: код должен идентифицировать матрицу и перечеркнуть диагональные ячейки с двумя диагональными линиями границы.Как только саб запускается, он работает нормально и делает именно это.

Однако, когда я начинаю помещать значения в ячейки матрицы, в какой-то момент, как только я заполню критическое количество ячеек, ячейки, в которые я помещаю значения, начинают изменятьсяих границы, как это делали клетки диагонали !?

Кто-нибудь может помочь?

Ниже я воссоздал проблему:

Sub Formatting()

With Sheets("Sheet1").Cells
    .ClearContents
    .Cells.Borders(xlDiagonalDown).LineStyle = xlNone
    .Cells.Borders(xlDiagonalUp).LineStyle = xlNone
End With

Dim xCol As Long, xRow As Long
Dim xColDiag As Long, xRowDiag As Long

xCol = 2
xRow = 3
xColDiag = 3
xRowDiag = 3

Do Until xColDiag > 9

    With Sheets("Sheet1").Cells(xRowDiag, xColDiag)
        .Borders(xlDiagonalDown).LineStyle = xlContinuous
        .Borders(xlDiagonalUp).LineStyle = xlContinuous
        .FormatConditions.Delete
    End With

    xRowDiag = xRowDiag + 1
    xColDiag = xColDiag + 1

Loop

End Sub