Hi gostavee (My country's son)
May be something like that
Range("D3").Value = Application.WorksheetFunction.SumIf(Range("B2:B15"), "o", Range("A2:A15"))