Sub blah()
With ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=Sheets("Sheet1").Range("A1").CurrentRegion).CreatePivotTable(TableDestination:=Sheets("Summary").Range("A19"))
.PivotFields("Credit analyst").Orientation = xlRowField
.AddDataField .PivotFields("Total balance in LC"), "Sum of Total balance in LC", xlSum
.AddDataField .PivotFields("Overdue Total"), "Sum of Overdue Total", xlSum
.DisplayFieldCaptions = False
.PivotFields("Sum of Total balance in LC").NumberFormat = "£#,##0.00"
.PivotFields("Sum of Overdue Total").NumberFormat = "£#,##0.00"
.TableStyle2 = "PivotStyleLight16"
.ShowTableStyleRowStripes = True
End With
End Sub
ps. you've linkd to this thread rather than the other forum(s)