Прокрутите первую строку и столбец и вставьте значения в другой лист с помощью VBA

Question

Я хочу скопировать каждую ячейку в первой строке и вставить в нее ячейку A1 на листе № 2. А затем вставить номер обратно в ячейку sheet1 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