Errata (typos).... I wrote:
"Hans Hamm" wrote:
Set Srng = Sheet1.Range("C1")
Set Erng = Sheet1.Range("E1")
Set Arng = Sheet2.Range("D2:D" & Range("AJ" & Rows.Count).End(xlUp).Row)
[....]
WorksheetFunction.AverageIfs(Arng,Arng,"=" & Range("C1"),
Arng,"<=" & Range("E1"))

Of course, the Range references should be Sheet1.Range references. But
since you set Srng and Erng, we should use them, to wit:

WorksheetFunction.AverageIfs(Arng,Arng,"=" & Srng,Arng,"<=" & Erng)