Macro for AverageIFS, with multiple criteria in the same criteria range

Hi,

Can onyone help me on how to create AVERAGEIFS with multiple criteria in the same criteria range

e.g. January, February, March, etc.

Sub a()
Dim WhatToAvg As Range, Criteria1_Range, Criteria2_Range As Range
Dim calculate As Variant
 
Set WhatToAvg = Range("H524:IW581")
Set Criteria1_Range = Range("H515:IW572")
Set Criteria2_Range = Range("H519:IW576")

calculate = Application.WorksheetFunction.AverageIfs(WhatToAvg, Criteria1_Range, "Less Complex", Criteria2_Range, "January")

MsgBox Format(calculate, "0.00")
End Sub