Range（ActiveCell，ActiveCell.End（xlDown））。选择不随机

Question

我有一个包含以下代码的vba代码：

ActiveCell.Offset(1, 0).Activate
  Range(ActiveCell, ActiveCell.End(xlDown)).Select
  Range(ActiveCell, ActiveCell.End(xlDown)).Copy
  Cells(Lastrow_2, ActiveCell.Column).Select
  ActiveSheet.Paste
  Rows(ActiveCell.Row).Select
  Range("1:1").Select

突然不起作用。过去，我已经多次使用此代码来格式化文件，直到最近我才出现问题。我只有一个文件，无法使用。当到达代码的这一部分时，它并没有执行应有的功能。而不是一直向下选择，它仅选择活动单元正下方的单元。列中有一些空白单元格，但这在过去不是问题。是否有发生这种情况的原因？