Sumif Vba help

[FGaxha]

I have vba code to Sumif lookup name.
It is working for one criteria, how to modify for multiple criteria"

Code:
Sub SumDiscountsByOrderDate()
Dim sumRange As Range
Dim criteriaRange As Range
Dim criteria As String

Set sumRange = Range("F2:F11")
Set criteriaRange = Range("B2:B11")
criteria = Range("I4").Value


Range("J4") = WorksheetFunction.SumIfs(sumRange, criteriaRange, criteria)

End Sub

 

[AlphaFrog]

Why are you using VBA instead of having a SUMIFS formula in column J?

Put this in J4 and then copy down to J10
=SUMIFS($F$2:$F$11, $B$2:$B$11, I4)

 

[FGaxha]

I like VBA, because I have a large data source 250k rows. it work easy with vba.
Thank You