Where is the code that generates the column headers?

One observation: HeaderRow in
Code:
oSheet.Cells(HeaderRow, 1).value = "MOTOR PARTS"
is not assigned a value and not in quotes so it is zero. (maybe it's a const?)