title: Loop Through First Row and Column and paste values to another Sheet with VBA
body: <p>I want to copy each cell in the first Row and paste it cell A1 in sheet number 2. And then paste the number back in sheet1 cell B2. I want to repeat this for all values in first column and first row. I have attached a sample excel file showing what results i should get. </p>
  
  <p>I have written a code which does not work. </p>
  
  <pre><code>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
  </code></pre>
  
  <p><a href="https://i.stack.imgur.com/5UKDJ.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/5UKDJ.png" alt="enter image description here"></a></p>