Come evitare di utilizzare una colonna di supporto in questo esempio (VBA)

Sub CASOC()
Dim i As Long, somma As Long
Dim box(6 To 16) As Integer
For i = 6 To 16
If Cells(i, 17) + Cells(i, 19) > Cells(2, 15) Then
   box(i) = 1
   somma = somma + 1
Else
   box(i) = 0
End If
Next i
Cells(2, 16) = somma
End Sub

Sub CASOC()
Dim i As Long, somma As Long
Dim box(6 To 16) As Integer
For i = 6 To 16
If Cells(i, 17) + Cells(i, 19) > Cells(2, 15) Then
   somma = somma + 1
End If
Next i
Cells(2, 16) = somma
End Sub

Sub CASOB()
Range("P2").ClearContents
Dim i As Long, somma As Long
somma = 0
For i = 6 To 16
If Cells(i, 10) + Cells(i, 12) >= Cells(2, 8) Then somma = somma + 1
Next i
Cells(2, 9) = somma
End Sub
--------------------------
Sub CASOC()
Dim i As Long, somma As Long
Dim box(6 To 16) As Integer
For i = 6 To 16
If Cells(i, 17) + Cells(i, 19) > Cells(2, 15) Then somma = somma + 1
Next i
Cells(2, 16) = somma
End Sub

Sub test_Caso_c()
Dim wk As Worksheet, lr As Long, Parametro As Double, mArr() As Variant
Dim j As Long, k As Long, k1 As Long, Giorni As Integer
Dim NumPers_1 As Long, Distanza() As Variant
Set wk = Worksheets("Foglio1")
lr = wk.Range("A" & Rows.Count).End(xlUp).Row
Parametro = Range("A9")
ReDim mArr(1 To lr - 10, 1 To 5) ' array dati

' array Distanze
Distanza = Application.WorksheetFunction.Transpose(Range("C5:F6")) '<< variare secondo dati di riga 5
For I = 1 To UBound(Distanza)
    Distanza(I, 2) = 0
Next

'alimenta array dati
For j = 11 To lr
    mArr(j - 10, 1) = Cells(j, 1) 'LUCA
    mArr(j - 10, 2) = Cells(j, 2) 'MARCO
    mArr(j - 10, 4) = Cells(j, 3) 'N.PERSONE
    If mArr(j - 10, 1) + mArr(j - 10, 2) > Parametro Then 'SOMMA
        mArr(j - 10, 3) = 1
        NumPers_1 = NumPers_1 + mArr(j - 10, 4) ' somma persone con 1
    Else
        mArr(j - 10, 3) = 0
    End If
Next j
k = UBound(mArr)
k1 = k
'conteggio giorni
For k = UBound(mArr) To 2 Step -1
    Do Until mArr(k1 - 1, 3) = 1
        Giorni = Giorni + 1
        k1 = k1 - 1
    Loop
    If Giorni = 0 Then
        mArr(k, 5) = 1
    Else
        mArr(k, 5) = Giorni + 1
'        Cells(k + 10, 7) = Giorni + 1 ' se togli commento, in col. G vengono stampati i giorni
        'alimenta array distanze
        For I = 1 To UBound(Distanza)
            If Distanza(I, 1) = Giorni + 1 Then
                Distanza(I, 2) = Distanza(I, 2) + 1
                Exit For
            End If
        Next I
        GoTo salto
    End If
salto:
    k1 = k1 - 1
    Giorni = 0
    k = k1 + 1
Next k
With Application.WorksheetFunction
    Range("B6") = .Sum(.Index(mArr(), 0, 3)) ' quanti 1
    Range("B8") = NumPers_1 / Range("B6") ' Media
   
   ' valori per distanza
    c = 3
    For I = 1 To UBound(Distanza)
        Cells(6, c) = Distanza(I, 2)
        c = c + 1
    Next I
    End With
End Sub

Sub test_Caso_c()
Dim wk As Worksheet, lr As Long, Parametro As Double, mArr() As Variant
Dim j As Long, k As Long, k1 As Long, Giorni As Integer
Dim NumPers_1 As Long, Distanza() As Variant
Set wk = Worksheets("Foglio1")
wk.Range("B6:F6,B8").ClearContents '<< variare secondo dati di riga 5
lr = wk.Range("A" & Rows.Count).End(xlUp).Row
Parametro = Range("A9")
ReDim mArr(1 To lr - 10, 1 To 5) ' array dati

' array Distanze
Distanza = Application.WorksheetFunction.Transpose(Range("C5:F6")) '<< variare secondo dati di riga 5
For I = 1 To UBound(Distanza)
    Distanza(I, 2) = 0
Next

'alimenta array dati
For j = 11 To lr
    mArr(j - 10, 1) = Cells(j, 1) 'LUCA
    mArr(j - 10, 2) = Cells(j, 2) 'MARCO
    mArr(j - 10, 4) = Cells(j, 3) 'N.PERSONE
    If mArr(j - 10, 1) + mArr(j - 10, 2) > Parametro Then 'SOMMA
        mArr(j - 10, 3) = 1
        NumPers_1 = NumPers_1 + mArr(j - 10, 4) ' somma persone con 1
    Else
        mArr(j - 10, 3) = 0
    End If
Next j
k = UBound(mArr)
k1 = k
'conteggio giorni
For k = UBound(mArr) To 2 Step -1
        Do Until mArr(k1 - 1, 3) = 1
            Giorni = Giorni + 1
            k1 = k1 - 1
            If k1 = 1 Then Exit Do
        Loop
    If Giorni = 0 Then
        mArr(k, 5) = 1
    Else
        mArr(k, 5) = Giorni + 1
'        Cells(k + 10, 7) = Giorni + 1 ' se togli commento, in col. G vengono stampati i giorni
        'alimenta array distanze
        For I = 1 To UBound(Distanza)
            If Distanza(I, 1) = Giorni + 1 Then
                Distanza(I, 2) = Distanza(I, 2) + 1
                Exit For
            End If
        Next I
        GoTo salto
    End If
salto:
    k1 = k1 - 1
    Giorni = 0
    k = k1 + 1
Next k
With Application.WorksheetFunction
    Range("B6") = .Sum(.Index(mArr(), 0, 3)) ' quanti 1
End With
If NumPers_1 > 0 Then
    Range("B8") = NumPers_1 / Range("B6") ' media
    c = 3 ' colonna inizio distanze
    For I = 1 To UBound(Distanza)
        Cells(6, c) = Distanza(I, 2)
        c = c + 1
    Next I
Else
    MsgBox "Nessun riscontro"
End If
    
End Sub