VBA-将数据添加到下一个空行

我编写了下面的宏来将数据从一个工作表传输到另一个工作表。我希望将新数据传输到一个空行，但它会不断将相同的数据覆盖到行

  Worksheets("sheet1").Select
     Worksheets("sheet1").Range("a1").Select
     RowCount = Worksheets("sheet1").Range("A1").CurrentRegion.Rows.Count
     With Worksheets("Sheet1").Range("A1")
     .Offset(RowCount, 0) = workOrderDescription

请尝试以下代码：

With Workbooks("Your_WorkbookmName").Worksheets("sheet1")
    RowCount = .Cells(.Rows.Count, "A").End(xlUp).Row ' <-- get last row in column "A"
    .Range("A" & RowCount + 1) = workOrderDescription
End With

---

嗨，我的解释不是很清楚。我正在从一个工作表转移到另一个工作簿。我希望数据传输到每行上的一个空行occassion@Tom事实上，你的解释不是很清楚，另一本工作簿的名称是什么？它开着吗？您要复制到的工作表的名称是什么？目前我还没有命名工作簿或工作表。当我测试宏时，它只是表1。它将在实际工作的一天内一直打开，并不断从工作簿接收更新并通过发送数据。@Tom尝试编辑代码，将您的\u WorkbookmName更改为工作簿的名称