vba excel的有关问题

vba excel的问题
1.请问高手为何宏执行ThisWorkbook.Sheets(1).Range(d2) = Date无法赋值的呢?若不行,如何解决

2.如何用vba统计excel表格字数,大于1500个汉字,自动插入一行将多余的字记录到下一行同一列的表格中。
高手帮帮忙啊!

------解决方案--------------------
探讨
2.如何用vba统计excel表格字数,大于1500个汉字,自动插入一行将多余的字记录到下一行同一列的表格中。