To answer my own question.....
You can use the following code to set the function of a Pivot Table where the top left-hand cell of the table is A3.
code: Range("A3").Select
ActiveCell.PivotField.Function = xlVarP
Replace xlVarP with whatever function you wish to use such as - xlSum, xlCount or xlAverages.