I'm having trouble with this - I'm using this code to get to the next empty row,
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
and trying to place 37 entries into that row by using:
Cells(intRow, 1) = rayTravelerInfo(1) 'Name
Cells(intRow, 2) = rayTravelerInfo(2) 'Gender
Cells(intRow, 3) = rayTravelerInfo(3) 'Department
etc.
I've also tried Cells(LastRow,1) = rayTravelerInfo(4) and
Cells(1, 1) = ray TravelerInfo(1), etc.
Any help would be most appreciated.
Thanks,
Diana
Bookmarks