循环遍历第一行和列，然后使用VBA将值粘贴到另一个工作表

Question

我要复制第一行中的每个单元格，并将其粘贴到工作表编号2中的单元格A1中，然后将数字粘贴回工作表1单元格B2中。我想对第一列和第一行中的所有值重复此操作。我已经附上了一个示例excel文件，显示了我应该得到什么结果。

我写了一个无效的代码。

Sub check()
    Dim i, j As Long
    Dim rng1, rng2 As Range

    For i = 1 To 3
        For j = 1 To 3        
            Set rng1 = Sheets("Sheet1").Range("A1:K1")
            Set rng2 = Sheets("Sheet1").Range("A1:A10")

            For Each Cell In rng1      
                Cell.Value.Copy
                Sheets("2").Range("A1").PasteSpecial Paste:=xlPasteValues    
                Sheets("2").Range("A3").Copy
                Sheets("Sheet1").Cells(i + 1, j + 1).PasteSpecial Paste:=xlPasteValues
            Next Cell
        Next j
    Next i