Dear sirs

I am trying to create a macro which will generate Pivotchart reports . Unfortunatellt i am receiving an error .

This is the macro :

Macro6 Macro

' Keyboard Shortcut: Ctrl+f
'
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("H1").Select
ActiveCell.FormulaR1C1 = "retea"
Columns("H:H").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Sheet1!C8").CreatePivotTable TableDestination:="", TableName:= _
"PivotTable3", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
Charts.Add
ActiveChart.Location Where:=xlLocationAsNewSheet
ActiveWorkbook.ShowPivotTableFieldList = True
End Sub


Please Help me correct the error