Word- VBA- Как предотвратить удаление элементов управления содержимым выбранного повторяющегося раздела, если остается только один раздел?

Следующий код успешно удаляет выбранный RSCC, но всегда предотвращает удаление первого RSCC.

 Dim cc As ContentControl
    If Selection.Information(wdInContentControl) Then
        Set cc = Selection.ParentContentControl
        If Not cc.Type = wdContentControlRepeatingSection Then
            Do Until cc.Type = wdContentControlRepeatingSection
                Set cc = cc.ParentContentControl
            Loop
        End If
        Dim index As Long
        For index = 1 To cc.RepeatingSectionItems.Count
            If Selection.Range.InRange(cc.RepeatingSectionItems(index).Range) Then
                If index > 1 Then
                    cc.RepeatingSectionItems(index).Delete
                Else
                    MsgBox Prompt:="You cannot delete this.", Title:="Error"
                End If
                Exit For
            End If
        Next index
    End If

Моя цель - иметь возможность удалить любой выбранный RSCC, но не в том случае, если остается какой-либо один RSCC.

Другими словами, если у меня есть три RSCC (1,2,3), вместо того, чтобы всегда защищать раздел 1, я хотел бы защитить раздел 2, если бы я удалил разделы 1 и 3 или защитил раздел 3, если разделы 1 и 2 были удалены.