我想复制第一张（wsIn）中的每一个非空行，第二张（wsGruppo）中的子行（wsGruppo）
我的子集复制源从列E开始直到最后一个非空列（右侧）....每一行都在while循环中处理（rowOut index）
我在第二张纸上的粘贴列是第x行的第H列（x有自己的增量）
我做了这些东西，但它循环：
Range("E" & rowOut).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
wsGruppo.Select
wsGruppo.Cells.Range("H" & rowOut2).Select
ActiveSheet.Paste