title: Excel VBA for each cell in range A, copy value in cell B, to new sheet
body: <p>I have values in Sheet1 like:
  A1 = 23, B1 = M, C1 = 256
  and for each value in range A, I need to copy value from cell B1 and C1 to Sheet2 into cell A6 and D7.</p>
  
  <p>thank you very much for your help</p>
  
  <p>Hello, yes. I tryed to make it like:  </p>
  
  <pre><code>Sub Get_Data()  
      Dim lastrowDB As Long, lastrow As Long  
      Dim arr1, arr2, i As Integer  
  
      With Sheets("Hárok2")
           lastrowDB = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
      End With
      Sheets("Hárok1").Select
      arr1 = Array("B", "C", "D")
      Sheets("Hárok2").Select
      arr2 = Array("B3:C3", "B7:C7", "E7:F7")
  
      For i = LBound(arr1) To UBound(arr1)
          With Sheets("Hárok1")
               lastrow = Application.Max(3, .Cells(.Rows.Count, arr1(i)).End(xlUp).Row)
               .Range(.Cells(3, arr1(i)), .Cells(lastrow, arr1(i))).Copy
               Sheets("Hárok2").Range(arr2(i) &amp; lastrowDB).PasteSpecial xlPasteValues
          End With
          'Sheets("Hárok2").Select
          'Range("A1:L5").PrintOut  
      Next  
       Application.CutCopyMode = False
  End Sub 
  </code></pre>
  
  <p>but it give me a error in line: Sheets("Hárok2").Range(arr2(i) &amp; lastrowDB).PasteSpecial xlPasteValues</p>