VBA按最早日期排序

Question

这个问题使我发疯。基本上，我需要对从最早日期到最新日期的范围进行排序。当我在一张工作表上实现此代码时，尽管我在两张工作表上都基本相同（不同的数字，但相同的填充列数和行数）却无法正常工作

我希望仅按日期对范围totrng进行排序，而不对整个工作表进行排序。在sheet1中可以使用，而在sheet2中则不能使用，它会根据最早的日期对所有工作表进行排序。为什么会这样？

lr = ActiveSheet.Cells(Rows.Count, 10).End(xlUp).Row

Set totrng = ActiveSheet.Cells(ActiveSheet.Rows.Count, "J").End(xlUp).CurrentRegion
totrng.Sort Key1:=Range("J4:J" & lr), order1:=xlAscending, Header:=xlNo

预先感谢您的帮助