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

Question

Я пытаюсь суммировать значение в столбце, если значение в той же строке> x. Х - произвольное значение.

В настоящее время код повторно суммирует один и тот же столбец.

Я попытался использовать функцию ActiveCell.Row, но это зависит от того, какую строку я выбрал, и я хочу, чтобы она обновлялась автоматически.

Приведенный ниже код проверяет, соответствует ли значение в конце строки 3 критериям. Если это так, то следует добавить значение в ячейку C3 в переменную ThresholdCount.

    Option Explicit

    Sub Test()

    Dim ws As Worksheet 'declare your worksheets

    Set ws = ThisWorkbook.Sheets("Arrivals") 'like this you will refer to it using ws

    Dim cel As Range, unit As Range
    Dim ParcelCount As Long, LowerParcelCount As Long, ThresholdCount As Long

    With ws 'you could also use With ThisWorkbook.Sheets("Arrivals") if you are not using that sheet anymore
        ParcelCount = .Range("BW8").Value
        LowerParcelCount = .Range("BW5").Value
        ThresholdCount = 0

        For Each cel In .Range("BQ3:BQ78")
            If cel.Value > LowerParcelCount Then
                For Each unit In .Range("C3:C78")
                    ThresholdCount = ThresholdCount + unit.Value
                Next unit
            End If
        Next cel
        .Range("BS16") = ThresholdCount
    End With

End Sub

Код должен проверять, соответствует ли значение в конце строки 3 критериям. Если это так, следует добавить значение в ячейку C3 в переменную ThresholdCount. Затем следует проверить, соответствует ли значение в конце строки 4 критериям. Если это так, следует добавить значение в ячейку C4 в переменную ThresholdCount.

То, что делает iT, продолжает добавлять значения в столбце C, если значения в диапазоне BQ3: BQ78 соответствуют критериям.