Thanks romperstomper!

But another thing

I was trying to modify this line:

.Orientation = xlDataField

instead of xlDatafield I'm trying to change it to xlcolumnfield since I want to be "Pieces Ordered" to be a column header instead of being in a row. But it gives me an error on this line:
.Function = xlSum

Thanks for your time!