转置范围类型不匹配

Question

我正在尝试从现有工作簿开发新工作簿。唯一的解决方案是数据的位置

以下代码在一个工作簿中正常工作，仍然可以。在新工作簿中使用它时，除了数据的位置，相同的条件，相同的数据

Dim transposedVariant, sourceRowRangeVariant As Variant
Dim sourceRowRange, rangeFilledWithTransposedData As Range

Set sourceRowRange = Sheets("DataDownload").Cells(ArBegin, 1).Resize(ArEnd, 2)
sourceRowRangeVariant = sourceRowRange.Value
transposedVariant = Application.Transpose(sourceRowRangeVariant)

Set rangeFilledWithTransposedData = Sheets("NoCrunch").Cells(21, 4).Resize(2, ArEnd - ArBegin + 1)
rangeFilledWithTransposedData.Value = transposedVariant

当在新工作簿中运行以上操作时，我得到运行时错误13类型不匹配，我不知道为什么。代码在循环内被拉高两次。 ArBegin和ArEnd是不同的

任何帮助肯定会有助于这个令人费解的结果。