VBA自动填充到最后一行？

VBA自动填充最后一行的代码如下：表（1）范围（J2）。选择所选内容。当自动填充目的地：=范围（J2:j118031）运行到第二行时，提示的错误为：应用程序错误或对象错误。我不知道为什么这是一个错误。我在模块中运行时没有错误。然而，建议=范围（“J2:j118031”）更改为=纸张（1）范围（“J2:J118031”）并尝试

1、首先打开需要编辑的Excel表格，鼠标右键单击工作表，选择打开“查看代码”。

2、然后在d出来的窗口中点击输入代码：

Sub 选择单元格最下面第一个空值()

Range("a" & Cells(Rows.Count, 1).End(xlUp).Row + 1).Select

End Sub

3、然后或者输入代码：

sub 选择单元格最后一行()

Range("a" & Cells(Rows.Count, 1).End(xlUp).Row).Select

Cells(Rows.Count, 1).End(xlUp).Select'             

End Sub Cells(Rows.Count, 1)'选择最后一个单元格。

4、然后点击上方的运行。

5、然后就完成了、

---