如何从列的最后一行复制一个值并将其粘贴到列的第一行？

Question

我有一个包含两个工作表的工作簿。 让我们称它们为工作表 1 和工作表 2。在工作表 1 中，我有一列包含一个变量，其中我滞后变量（使用偏移量）i 次。 我每次都将滞后和 R^2 保存在一个数组中。 每当我滞后变量时，我需要粘贴工作表 2 中 B 列最后一行的数据。随着变量 i 的增加，我从中复制数据的行（工作表 2）必须以与 i 相同的步骤增加（例如. 对于 i = 1 到 10) 以负面方式（从底部到顶部的偏移量（-i） - 所以我猜行必须减少） - 例如。 当 i = 2 时，我想复制工作表 2 底部的第二行并插入工作表 1 的第一行。

随着我的增加，工作表 1 中的行应该偏移 1，因此基本上用工作表 2 中的行值填充/替换工作表 1 中的空单元格。

我尝试了各种方法，但它不会复制和插入留下空白单元格或复制工作表 2 中的一个单元格并将其每隔一行粘贴到工作表 1 中

Sub Regression()
Dim Y, X As Range
Dim MyArray As Variant
Dim AWF As WorksheetFunction
Dim DefaultRate, Data As Worksheet
Dim i As Integer

Set AWF = Application.WorksheetFunction
Set DefaultRate = Workbooks("Main sheet.xlsm").Sheets("DefaultRate")
Set Data = Workbooks("Main sheet.xlsm").Sheets("Data")

Set Y = DefaultRate.Range("B2:B55")
Set X = DefaultRate.Range("D2:D55")

ReDim MyArray(5, 5)

For i = LBound(MyArray, 1) To UBound(MyArray, 1)
If i = 0 Then
Set X = X.Offset(0)
Data.Range("B" & Rows.Count).End(xlDown).Copy
DefaultRate.Range("D2").PasteSpecial xlPasteValues
Else:
Data.Range("B" & Rows.Count).End(xlDown).Offset(-i).Copy
DefaultRate.Range("D" & 2).Offset(i).PasteSpecial xlPasteValues
End If
MyArray(i, 1) = i
MyArray(i, 2) = AWF.RSq(Y, X)
Cells(1 + i, 7).Value = MyArray(i, 1)
Cells(1 + i, 8).Value = MyArray(i, 2)

偏移量 function 产生的空单元格应该被工作表 2 中的数据替换，但我似乎无法使其工作。