Creating pivot tables with macro VBA

Hi,

Could someone have a look at the script and tell me the issue, I'm trying to create a pivot table with a macro but it's telling me to debug here:

Sheets("Feature Analysis").Select
    Range("A1").Select
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Log!R1C3:R17C19", Version:=xlPivotTableVersion14).CreatePivotTable _
        TableDestination:="Feature Analysis!R1C1", TableName:="PivotTable7", _
        DefaultVersion:=xlPivotTableVersion14    
Sheets("Feature Analysis").Select
    Cells(1, 1).Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlColumnClustered

Thank you