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