Error on Pivot Table VBA

Hi, I got a sample VBA code form this forum, this is to insert Pivot Table, and I tried modifying it, but it just gave me an error.

Please Login or Register  to view this content.

This line is giving me the error

Please Login or Register  to view this content.

Thanks!!

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!

Where will I add it?

In this?

Please Login or Register  to view this content.

I tried doing it like this:

Please Login or Register  to view this content.

And like this:

Please Login or Register  to view this content.

But still gives me error and highlight the xlcolumnfield line

Thanks romperstomper, I'll try the code then I'll let you know!

thanks!