VBA with Ranges

[zdodson]

All,

Currently, I am working with the following code:

Dry = Array("BALLOTS", "D2", "BALLOTS", "O2")
For d = 0 To UBound(Dry) Step 2
With Sheets(Dry(d))
.Range(Dry(d + 1), .Range(Left(Dry(d + 1), 1) & Rows.Count).End(xlUp)).Copy Sheets("Admin").Range("AA" & Rows.Count).End(xlUp).Offset(1)
End With
Next d

This code essentially grabs all of the data from Columns D and O and stacks it all in Column AA of my "Admin" sheet. Instead of doing this, I need it to take the data from:

-"Ballots".Column D and put it in "Admin".Column AA
-"Ballots".Coumn O and put it in "Admin".Column AB


Any help on this would be greatly appreciated!

-Z

 

[Yongle]

Try

.Range(Dry(d + 1), .Range(Left(Dry(d + 1), 1) & Rows.Count).End(xlUp)).Copy Sheets("Admin").Range("AA" & Rows.Count).End(xlUp).Offset([COLOR=#ff0000]1 , d/2[/COLOR])

Perhaps row offset also needs adjusting based on value of d

 

[Fluff]

Another option

Sub zdodson()
   Dim Dry As Variant
   Dim d As Long
   Dry = Array("BALLOTS", "D2", "AA", "BALLOTS", "O2", "AB")
   For d = 0 To UBound(Dry) Step 3
      With Sheets(Dry(d))
         .Range(Dry(d + 1), .Range(Left(Dry(d + 1), 1) & Rows.Count).End(xlUp)).Copy Sheets("Admin").Cells(Rows.Count, Dry(d + 2)).End(xlUp).Offset(1)
      End With
   Next d
End Sub