将一个范围从一个工作表复制到另一个工作表的第一个空行

在Excel工作表中，我插入了一个执行macros的button。 这是macros的代码：

Sub Button1_Click() ' ' Button1_Click Macro ' ' Keyboard Shortcut: Option+Cmd+y ' Range("A17:I34").Select Selection.Copy Sheets("ITEMS CONTROL").Select Range("A7").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Range("A3:I9").Select End Sub 

源表单是“ORDEN DE COMPRA”，我想复制所选范围的表单是“ITEMS CONTROL”。

我需要的是将从选定范围的非空行复制到结束表中的第一个空行，而不是我当前代码中的范围。

谢谢

Answer 1

这会工作吗？

 Sub Button1_Click() 'This will select the whole range of cells starting in A17 Sheets("ORDEN DE COMPRA").Select Range(Range("A17"), Range("A17").End(xlDown).End(xlToRight)).Copy 'Now we need to find the first free row in the next sheet, assuming all rows have something on column A Sheets("ITEMS CONTROL").Select Range("A1").End(xlDown).Offset(1, 0).Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False End Sub