Поиск целевой плотности множества ячеек

Option Explicit
Const m = 11 'размер--11x11
Dim i&, j&, n&, cn&, ii&
 
Sub CommandButton1_Click()
 
    With Columns("A:K")
        .ClearContents
        .ColumnWidth = 2
        .Interior.ColorIndex = xlNone
        .Font.ColorIndex = 0
        .HorizontalAlignment = xlCenter
        For i = 5 To 12: .Borders(i).LineStyle = xlNone: Next
    End With
    For i = 1 To 100 * m: For j = 1 To 11
        If Fix(Rnd * 50) = 0 Then
            With Cells(i, j)
                .Value = 1
                .Font.ColorIndex = 2
                .Interior.ColorIndex = 1
            End With
        End If
    Next j, i
End Sub
 
Sub CommandButton2_Click()
 
    For n = 1 To 99 * m
        With Range(Cells(n, 1), Cells(n + m - 1, m))
            cn = 0
            For i = 1 To .Rows.count: For j = 1 To .Columns.count
                cn = cn + Abs(.Cells(i, j).Value = 1)
                If cn >= 6 Then
                    For ii = 7 To 10
                        With .Borders(ii)
                            .LineStyle = xlContinuous
                            .Weight = xlMedium
                            .ColorIndex = xlAutomatic
                        End With
                    Next
                    n = n + m - 1: Exit For
                End If
            Next j, i
        End With
    Next
End Sub