create embeded chart at specific location

[adr12345]

I am using this code to create an embeded chart from pivot table.

Dim pt As PivotTable
Dim myChartObject As ChartObject
Sheets("AOSTESUMMARY").Select
Set pt = Sheets("AOSTESUMMARY").PivotTables(1)
pt.TableRange1.Select
Worksheets("AOSTESUMMARY").ChartObjects.Add Left:=500, Top:=500, Width:=300, Height:=300


However charts is created at unspecific location.
say I want to create chart at cell "C1"..

what should be my code?

 

[adr12345]

also
Dim chrtrng As range
Dim pt As PivotTable
Set pt = Sheets("AOSTESUMMARY").PivotTables(1)
Set chrtrng = pt.TableRange1
ActiveChart.SetSourceData Source:=range("chrtrng")
ActiveChart.ChartType = xl3DPie

I tried different code..
Code is getting stuck at the line in bold... need help