VBA 调试显示下标越界

想使用VBA写countifs函数，调试时显示下标越界

数据大概400-500条不一定，范围就定为了2-1000行，请问问题出现在哪里呢

Workbooks("辅助表1.xlsm").Sheet1.Cell(3, 5) = Application.WorksheetFunction.CountIfs(Workbooks("B.xlsx").Sheet1.Range("B2" & ":" & "B1000"), "Create*", Workbooks("B.xlsx").Sheet1.Range("AD2" & ":" & "AD1000"), "QL")