自动在最后一个非空/已用行下添加一行

Question

我正在尝试在填充行时自动在表格的末尾添加一行。这样，用户就不必插入包含所有公式的新行，而是为它们完成。因此，如果有20行，并且数据被添加到第20行，则第21行会弹出到我的表中。这将持续到数据输入完成。使用Excel 2013。

这是我到目前为止所做的：

Private Sub AppendRow(ByVal Target As Range)

On Error Resume Next

'Restricting the macro target rows from 2 to 30 and column 3

If Target.Column = 3 And (Target.Row >= 2 And Target.Row <= 30) Then

    If Target.Validation.Type = 3 Then
       Range("A1").End(xlDown).Select
       Selection.ListObject.ListRows.Add AlwaysInsert:=True


End If

exitHandler:
  Application.EnableEvents = True
  Exit Sub

End Sub