With Sheet2.Range(Cells(k, 1))——这句错了，如果是单个单元格，改为：With Sheet2.Cells(k, 1) 即可
with语句中间都没有代码，是不是省略了很多代码？
