仅复制带有数据的行，将它们转移到C列以上的另一个工作表中

Question

我尝试了各种方法来选择要复制的行，并在数据转置时粘贴到列。我不断得到间歇性运行错误1004，有时它可以工作，但大多数情况下没有，基本上不可靠。我希望有人可以告诉我一个可靠有效的方法来完成这个动作。

解释我想要做什么。我有一个工作簿，其中一行数据按行排列（行数可能不同）。所以我将最后一行指定为lrow。我正在尝试将此数据转置并粘贴到不同的工作簿和工作表中，我需要确保数据不会粘贴在A行或B行中，它可以位于任何后续列中。

Dim lRows As Long
Dim lCols As Long
Dim wsData_Sheet As Worksheet 

lRows = Cells(Rows.Count, "A").End(xlUp).Row
lCols = Cells(1, Columns.Count).End(xlToRight).Column
wsData_Sheet.Range(Cells(1, 1), Cells(lRows, lCols)).Copy

Set y = Workbooks.Open("C:\Matlab\R2006b\work\INCALogCommentList v01\LatestMacroSheet.xlsm")


With y.Sheets("Sheet1")
y.Sheets("Sheet1").Activate

Cells(2, 3).PasteSpecial Transpose:=True

End With

我一直在被复制的数据上找到范围对象定义的错误，我无论如何都会想到或粘贴错误。