VBA。比较锯齿状阵列会导致“类型不匹配”

I'm having a hard time figuring out what's wrong with this snippet of code which should be elemental. I was wondering if someone could give me a hand. Any ideas would be very much appreciated, I'm pretty new in VBA.I'm having a hard time figuring out what's wron