在现有评论的顶部添加评论（发送键行为）

Question

我有一个仅在单元格中输入注释的宏。与热键链接，因为我们在特定的组文件中使用了很多注释。

预期结果：

1. 添加评论，输入日期

2. 如果单元格中已有评论，请在上方（同时带有日期）添加新评论

问题： 下面的宏可以正确执行所有操作，但最末尾的sendkey除外。如果我手动输入组合：array([[[ 0, 4], [ 1, 5], [ 2, 6], [ 3, 7]], [[ 3, 7], [ 4, 8], [ 5, 9], [ 6, 10]]], dtype=int64) ，则Ctrl+Home会在添加的注释中明确显示我想要的位置。 关于在现有注释上方写的注释，我想准确地位于第一行日期的末尾。到目前为止，一切正常，除了光标仍在底部结束

问题： 如何使评论中的vba像键End，然后像Ctrl+Home

（ tldr：代码中的Sendkey在注释内不起作用）

End

PS：我知道“ .select”不好。但在这么长的一个子上，1个选择就可以了：）