从其他Excel文档导入单元格数据

Question

我正在尝试创建一个宏，它从ImportTestFile获取水平数据并使用新文件格式垂直粘贴到另一个文件中。 ImportTestFile中的数据可能会随着更新而变长（这就是我使用计数的原因）。

我的问题是每当我使用Paste special时出现错误，当我只使用ActiveSheet.Paste时，我导入的excel文件停止允许我点击单元格。 最后，我想从ImportTestFile复制多行数据但是现在我只是想先让一行正确。

ImportTestFile是2.3Mb，如果您认为这是点击问题的原因您是否知道我仍然可以从中导入数据而不会出现此问题？

Sub copydata()
Dim erow, eColumn As Long, rowUsed As Long, lastcolumn As Long, firstColumn As Long
Dim managerName, managerLetter, fileName, fileLocation, fileType As String

Workbooks.Open fileName:="/Users/james/Desktop/ImportTestFile.xlsx"
Worksheets(1).Select
rowUsed = 28
firstColumn = 4
lastcolumn = ActiveSheet.Cells(28, Columns.Count).End(xlToLeft).Column
Range(Cells(rowUsed, firstColumn), Cells(rowUsed, lastcolumn)).Copy
ActiveWorkbook.Close

Worksheets(1).Select
Cells(1, 1).Select
ActiveSheet.PasteSpecial Paste:=xlPasteValues, Transpose:=True

End Sub