• you can replace the entire second loop with 1 command:

    objWorksheet.Range("A2").CopyFromRecordset objRecordSet