将行添加到表格底部

Question

我正在尝试制作一个非常简单的 VBA 宏来在表格底部添加一个新行。这是我到目前为止：

Sub AddRow()
    Dim LR As Long
    LR = Range("A" & Rows, Count).End(xlUp).Row
    Rows(LR).Copy
    Rows(LR + 1).Insert
End Sub

当我尝试运行它时，它说内存不足。我想要实现的是现有表格底部的新行（内容在 A 列中），无论上面有多少列，我最终都会使用它来合计上面的数字。我在这里做错了什么？

Answer 1

尝试这个：

Sub AddRow()
    Dim LR As Long
    LR = Cells(Rows.Count,1).End(xlUp).Row
    Rows(LR).Copy
    Rows(LR + 1).Insert
End Sub