Vba 运行时错误'；438'；对象没有'；不支持此属性或方法错误

我希望通过一个包含两个日期值的电子表格来确定两个日期之间的月数。我的activecell为“J2”，比较值分别为“B2”和“C2”。我正在尝试使用DateDiff函数返回两个日期值之间的月数。
我正在对代码运行测试，遇到以下错误消息：

“运行时错误'438'对象不支持此属性或方法”

我在列出的最后一行代码中得到了错误消息，但我不明白为什么在activecell.offset上出现错误。我搜索了类似的问题，但找不到问题的答案。如果您能提供任何帮助，我们将不胜感激。谢谢

Sub tstdate()

Dim IDate As Date    ' Declare variables.
Dim HDate As Date    ' Declare variables.
Dim cnt As Integer   ' Declare variables.


    Range("j2").Select
    Do Until cnt = 7
'
    IDate = ActiveCell.OffsetActiveCell.Offset(0, -7)

---

您的代码重复

ActiveCell.Offset

。这种重复需要删除。

Dane，谢谢。让人惊讶的是，仅仅是在一个问题上有另一双眼睛，你就能得到多大的帮助。我不是专家，但有点尴尬的是，问题就在眼前。再次感谢，不用担心。如果我的回答对你有帮助，请接受我的回答。对不起，我在网站上的“新手”，但是我该去哪里接受答案呢？