What if SQL query return more records than excel sheet row limit?

Originally Posted by rorya

#1: Yes
#2: Just copy the header range from the first 5 columns each time.

Dim OutputCell as Range
set outputCell = WB.Sheets("Download Sheet").Cells(2, 1)
do until RecordDownloadRs.EOF
WB.Sheets("Download Sheet").Range("A1:A5").Copy
outputcell.offset(-1, 6).PasteSpecial Paste:=xlPasteValues
outputcell.CopyFromRecordset RecordDownloadRs, 1000000, 5
set outputcell = outputcell.offset(, 6)
loop

Sorry for bothering again, not familiar with Offset, what is wrong with the code? It only copies first field name, not the other four field names.