Excel VBA sumifs 语句

想要达到excel中sumifs的公式效果，代码如下，但是系统显示类型不匹配，还请帮忙看下错在哪里，谢谢！
sheet1中的B列为求和范围，A列为条件范围；
sheet2中的A列为条件判断范围。

Sub summary()

Dim i As Integer 'sheet2中需要输入公式的最大行数
Dim b As Integer 'sheet1中判定区域的最大行数

Dim ar1 As Range 'sheet1中的求和区域
Dim ar2 As Range 'sheet1中的条件区域
Dim ar3 As Range 'sheet2中的判定区域

b = Sheets(1).Range("A3").End(xlDown).Row
i = Range("A3").End(xlDown).Row

Set ar1 = Sheets(1).Range("B3:B" & b)
Set ar2 = Sheets(1).Range("A3:A" & b)
Set ar3 = Sheets(2).Range("A4:A" & i)

Sheets(2).Range("B4:B" & i) = WorksheetFunction.SumIfs(ar1, ar2, ar3)

End Sub