改了好多遍还是运行不了VBA

不懂为什么一直运行不了这个VBA
变量也声明了阿，所有能改的都改了，也没问题了，就是不行
怎么才能运行

你给y赋值了，但是没有写到表格里啊
在判断语句的最后，还是要写Range("D2")=y