各位大佬，我的代码不知哪里错了，请修改

有一个代码，根据某一列已知数据，来统计该列的数值在某一区域分别出现的次数问题。实际出现的次数与代码运行后的次数不同，不知错在哪里，请大佬把修改后的完整代码写出来。代码和两个截图一并附上，谢谢！
Sub 测试()
Dim mydic As Object, arr, i As Long, brr()
Set mydic =CreateObject("scripting.dictionary")
arr = Range("a2:h160000")
For Each ar In arr
mydic(ar) = mydic(ar) + 1
Next ar
arr1=range("r2",cells(rows.count,"r").end(xlup))
for i= 1to ubound(arr1)
If mydic.exists(arr1(i,1)) Then
Cells(i + 1, "s") = mydic(i)
Else
Cells(i + 1, "s") = 0
End If
Next i
MsgBox "提取完成"
End Sub