Vba 设置单元格值时出现错误1004

运行以下代码时，我得到了错误运行时错误“1004”：应用程序定义的错误或对象定义的错误。它在标记线上断开

 Dim cwb As Workbook
 Dim csh As Worksheet
 Set cwb = Workbooks.Open("M:\Secretary Resources\AppTracking\SentSurveys.xlsx")
 Set csh = cwb.Sheets("Sheet1")
 ''It breaks on this next line
 csh.Range("A1").End(xlDown).Offset(1, 0).Value = Format(DateTime.Now, "MM-DD-YYYY HH.MM AM/PM")
 csh.Range("A1").End(xlDown).Offset(0, 1).Value = Survey_Count

我已经查看了所有错误1004答案，它们要么不起作用，比如取消对工作表的保护，要么没有足够的意义让我实现

我只想打开一个现有的电子表格，并在其末尾添加一行新的值，而不需要对活动工作簿或活动工作表进行任何更改，这些工作簿或工作表当前正由其他人使用。有人知道我能做些什么来让它工作吗

---

编辑：这是在sub中执行的，在sub中不起作用。

感谢jsotola的回答

解决办法是在第1行下面的那一行填上一些东西。我只是用了“-”标记

EndxlDown移动到列中的最后一个非空单元格，但是，如果它已经从列中的最后一个非空单元格开始，它将跳过找到的所有空单元格，直到找到更多的非空单元格或到达工作表的末尾

---

从A1开始，之后什么都没有，因此，它没有停留在它开始的位置，而是跳到了表的底部。然后，我将偏移到工作表外不存在的单元格，从而产生错误。

对我有效，没有问题。您将转到工作表的底部，然后在下面的行中设置一个值。。。访问不存在cell@jsotola这不是超出范围的错误吗？我相信他在这里得到了一个不同的问题，工作表要么是空白的，要么只有A1的值。。。。在即时窗口中执行此操作。。RangeA1.EndxlDown.Select此选项可能会选择最后一行单元格，然后执行RangeA1.EndxlDown.Offset1，0。Select@jsotola现在A1和A2中只有一个值。我需要它来选择它下面的行。