title: Copy and paste with array macro excel
body: <p>Can anybody help me edit? I want to copy from column to another workbook column using array.
  The range inside the array is the Alphabet of the column i want to copy/paste.    </p>
  
  <pre><code>Sub setting2()
      Dim wb As ThisWorkbook
  
      Dim here As Workbook
      Dim there As Workbook
  
      Dim source() As Variant
  
      Dim log() As Variant
  
      Dim LastRowHere() As Integer
      Dim LastRowThere() As Integer 
  
      'Open both workbooks first:
      Set here = Workbooks.Open("C:\Users\jesslynn\Desktop\macro\Setting2.xlsm")
      Set there =Workbooks.Open("C:\Users\jesslynn\Desktop\macro\Setting3.xlsm")
  
      Windows("Setting.xlsm").Activate
      source() = Array(Sheets("Sheet1").Range("E11"), Range("E12"), Range("E13"), Range("E14"), Range("E15"), Range("E16"),Range("E17").Value)
  
      Windows("Setting.xlsm").Activate
      log() = Array(Sheets("Sheet1").Range("J11"), Range("J12"),Range("J13"),Range("J14"), Range("J15"), Range("J16"), Range("J17").Value)
  
      Windows("Setting2.xlsm").Activate
      LastRowHere() = Array(Sheets("Sheet1").Rows.Count, source().End(xlUp).Row)
  
      Windows("Setting3.xlsm").Activate
      LastRowThere() = Array(Sheets("Sheet1").Rows.Count, log()).End(xlUp).Row
  
      For i = 1 To LastRowHere()
  
      LastRowThere(1) = there.Sheets("Sheet1").Cells(Sheets("Sheet1").Rows.Count.log(1)).End(xlUp).Row
  
          For k = 1 To LastRowThere()
  
              'here.Sheets("Sheet1").Cells(i, k).Copy Destination:=there.Sheets("Sheet1").Cells(i, k)
      here.Sheets("Sheet1").Rows(i).Columns(source(1)).Copy Destination:=there.Sheets("Sheet1").Rows(k + 1).Columns(log(1))
  
          Next k
      Next i
  
      End Sub
  </code></pre>