Excel 复制连续行并在另一个speadsheet-宏中每隔一行粘贴行

我运行这个宏是为了在sheet1中的每一个现有行之间插入一个空行，现在我需要将另一个工作表中的数据粘贴到这些空行，复制的数据是连续的行

有人能帮我编码粘贴这些数据吗

Sub InsertBlankRows()

Sheets("Sheet1").Select

'Step1:  Declare your variables.
    Dim MyRange As Range
    Dim iCounter As Long
    
'Step 2:  Define the target Range.
    Set MyRange = Range("A2:F21")
    
'Step 3:  Start reverse looping through the range.
    For iCounter = MyRange.Rows.Count To 2 Step -1
    
'Step 4: Insert two blank rows.
    MyRange.Rows(iCounter).EntireRow.Insert

'Step 5: Increment the counter down
    Next iCounter
    
End Sub

---

可能最容易复制行（x）并粘贴到行（y），其中y=x*2+（从要复制的工作表的第1行开始）