Dim sumRange, criteria1, criteria2, criteria3 As Range
criteria1 = WB3.Worksheets("Stat Fcst Data").Range("E:E")
criteria2 = WB3.Worksheets("Stat Fcst Data").Range("F:F")
criteria3 = WB3.Worksheets("Stat Fcst Data").Range("B:B")
For i11 = Row51 To Row51 + NoOfRows
    For j11 = 7 To Col52
        sumRange = WB3.Worksheets("Stat Fcst Data").Range(Cells(2, j11),
        Cells(100000, j11))
        WB3.Worksheets("Stat Fcst Data $").Range(Cells(i11, j11),
        Cells(i11, j11)).Value = WorksheetFunction.SumIfs(sumRange _
        , criteria1, WB3.Worksheets("Stat Fcst Data $").Range(Cells(i11,
        5), Cells(i11, 5)).Value _
        , criteria2, WB3.Worksheets("Stat Fcst Data $").Range(Cells(i11,
        6), Cells(i11, 6)).Value _
        , criteria3, WB3.Worksheets("Stat Fcst Data $").Range(Cells(i11,
        2), Cells(i11, 2)).Value) _
        * WB3.Worksheets("Stat Fcst Data $").Range(Cells(i11, 4),
        Cells(i11, 4)).Value
    Next j11
Next i11