调整macros以复制表格中的范围，但将范围放在表格中的第一个空白行

我正在使用下面的代码将数据块复制到另一个工作表中，将所有数据保存为表格。 每次人们填写新的数据后，代码都会被用来复制。

Sub Containersgeproduceerd() Worksheets("Production shift summary").Range("A76:J85").Copy Worksheets("Production perform container").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _ :=False, Transpose:=False End Sub 

块的范围可以全部或部分填充。 当范围被部分填充，我将其复制到表中并多次执行，我得到下一个副本从表中复制块的结束范围开始的效果，因此如果范围未被完全填充，它会离开多次复制表格中的部分填充范围后，表格中的空白行。

我想要的是数据被复制到第一个空白行。

Answer 1

这将复制源范围中至less有一个input值的任何行。

 Sub Containersgeproduceerd() Dim c As Range, rngCopy As Range, rw As Range Set rngCopy = Worksheets("Production shift summary").Range("A76:J85") 'find empty cell in ColA Set c = Worksheets("Production perform container").Range( _ "A" & Rows.Count).End(xlUp).Offset(1, 0) 'make sure destination row is blank Do While Application.CountA(c.Resize(1, rngCopy.Columns.Count)) > 0 Set c = c.Offset(1, 0) Loop 'copy any row in the source range which has at least one value entered... For Each rw In rngCopy.Rows If Application.CountA(rw) > 0 Then c.Resize(1, rw.Cells.Count).Value = rw.Value Set c = c.Offset(1, 0) End If Next rw End Sub