Vba 单元格数组中按颜色求和

我正在尝试按颜色执行求和，我只需要对一种颜色执行求和，并将求和输出到单个单元格。附件是我目前拥有的代码，它似乎没有正确携带单元格的值

For j = 1 To nCols
    For i = 1 To nRows

        If Worksheets("LG").Cells(i, j).Interior.ColorIndex = 6 Then

            vResult = ActiveCell.Value
        End If
            vResultf = vResultf + vResult
    Next i
Next j



Worksheets("Function Select").Range("B4").Value = vResultf

Dim c As Range, j, i, vResultf 

For j = 1 To nCols
    For i = 1 To nRows
        Set c = Worksheets("LG").Cells(i, j)
        If c.Interior.ColorIndex = 6 Then vResultf = vResultf + c.Value
    Next i
Next j

Worksheets("Function Select").Range("B4").Value = vResultf