VBA只能在第一次使用

Question

我有一个带有VBA代码的Excel工作表，如果我向其他工作表中的表输入新的客户值，则该代码将自动在表中添加包含客户数据的行。

奇怪的是，代码可以很好地添加新行并用所需的数据填充它，但仅在第一次时，当我再次运行它时，它会填充到第一个单元格中，而当我再次运行它时它给我错误400。

Sub Add_Quote_Data()
    Dim the_sheet As Worksheet
    Dim table_object As ListObject
    Dim table_object_row As ListRow
    Set the_sheet = Sheets("QuotationsDB")
    Set table_list_object = the_sheet.ListObjects(1)
    Set table_object_row = table_list_object.ListRows.Add

    table_object_row.Range(1, 2).Value = Range("K4").Value

    last_row_with_data = Range("K4").End(xlDown).Row
    last_row_with_data = last_row_with_data - 1

    the_sheet.Range("G" & last_row_with_data) = Range("K5").Value
    the_sheet.Range("H" & last_row_with_data) = Range("K6").Value
    the_sheet.Range("I" & last_row_with_data) = Now()

    ActiveWorkbook.Save
    ActiveWorkbook.RefreshAll

End Sub