现金求助，运行出现错误13类型不匹配

希望懂的人帮我解决一下，20元以表谢意。
以前是可以正常使用的，不知道为什么现在不能用了， 换了很多系统还是不行，版本也换过，
但是我在淘宝找人解决时，人家可以正常用，我非常无语。
但我调试的时候有一行有错，能解决的联系我QQ523058888 急求！感谢！！
For k = 11 To Sheet1.Cells(10, 18).Value + 10