title: data not copying from one sheet to another correctly
body: <p>Arrgg... anyone able to help me with the below VBA?</p>
  
  <p>It's to cycle through 5 or so sheets and if there's any names on a list in sheet DevList it copies them to the OHD Leave Tracker sheet. For some reason the third column isn't copying for some of the records it finds. It seems to be the Array i'm using for the sheets, as if I only put one sheet name there it works fine.</p>
  
  <p>Alternatively, if you can help me find a better way, as this was patched together rather quickly on Friday afternoon.</p>
  
  <pre><code>Sub CopyYes()
   Dim c As Range
   Dim thisrow As Variant
   Dim j As Integer
   Dim Source As Worksheet
   Dim Target As Worksheet
   Dim arr As Variant
  
   arr = Array("Ind", "FAP", "YEE", "ABY", "LSL", "OHD's")
   j = 6 ' Start copying to row 6 in target sheet
   For i = LBound(arr) To UBound(arr)
  
   ' Change worksheet designations as needed
   'Set Source = Worksheets(arr(i))
   Set Target = ActiveWorkbook.Worksheets("OHD Leave Tracker")
  
  
   For Each c In Worksheets(arr(i)).Range("F1:F1000") ' Do 1000 rows
   If c = "Approved" Then
   thisrow = c.Row
   Target.Cells(j, 2) = Worksheets(arr(i)).Cells(thisrow, 1)
   Target.Cells(j, 3) = Worksheets(arr(i)).Cells(thisrow, 2)
   Target.Cells(j, 4) = Worksheets(arr(i)).Cells(thisrow, 3)
   j = j + 1
   End If
   Next c
   Next i
   Dim Lastrow As Long
  
   Lastrow = Range("B" &amp; Rows.Count).End(xlUp).Row
  
   Worksheets("OHD Leave Tracker").Range("A6:A" &amp; Lastrow).Formula = "=IF(ISERROR(VLOOKUP(B6,DevList!A:A,1,FALSE)),""Delete"",""Keep"")"
  
   Last = Worksheets("OHD Leave Tracker").Cells(Rows.Count, "A").End(xlUp).Row
   For i = Last To 1 Step -1
   If Worksheets("OHD Leave Tracker").Cells(i, "A").Value = "Delete" Then
   Worksheets("OHD Leave Tracker").Cells(i, "A").EntireRow.Delete
   End If
   Next i
  
   End Sub
  </code></pre>