不读价值

Question

我在源工作簿中有两行数字。我想将第一行复制到另一个工作簿中，然后将其下面的行作为源的第一行和第一行的总和。第二行。我的代码运行但我似乎无法读取第二行的值。 （aa是源工作簿的表）

With aa
    For i = 1 To Range(Range("U2").Offset(1, 0), Range("U2").Offset(1, 0).End(xlToRight)).Cells.Count
        Set NewValue = Range("U2").Offset(1, i - 1)
        TargetWB.Worksheets("Sheet1").Range("D2").Offset(1, i - 1).Value = Range("D2").Offset(0, i - 1) + NewValue.Value
    Next
End With