I am getting an error in my macro code when running a pivot table chart, here is the code:

Range("F14").Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Scans", Version:=xlPivotTableVersion14).CreatePivotTable TableDestination _
:="[ScannerWKS.xlsm]ScannerWKS!R2C11", TableName:="PivotTable5", _
DefaultVersion:=xlPivotTableVersion14
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables("PivotTable5").PivotFields("Scanner ID")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable5").AddDataField ActiveSheet.PivotTables( _
"PivotTable5").PivotFields("Scanned"), "Count of Scanned", xlCount
ActiveSheet.PivotTables("PivotTable5").AddDataField ActiveSheet.PivotTables( _
"PivotTable5").PivotFields("Scanned"), "Count of Scanned2", xlCount
ActiveSheet.PivotTables("PivotTable5").AddDataField ActiveSheet.PivotTables( _
"PivotTable5").PivotFields("Scanned"), "Count of Scanned3", xlCount
With ActiveSheet.PivotTables("PivotTable5").PivotFields("Count of Scanned")
.Caption = "First Scan"
.Function = xlMin
.NumberFormat = "h:mm:ss;@"
End With
With ActiveSheet.PivotTables("PivotTable5").PivotFields("Count of Scanned2")
.Caption = "Last Scan"
.Function = xlMax
.NumberFormat = "h:mm:ss;@"
End With
ActiveSheet.PivotTables("PivotTable5").PivotFields("Count of Scanned3"). _
Caption = "Scan Count"
ActiveSheet.PivotTables("PivotTable5").TableStyle2 = "PivotStyleDark17"
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlConeColClustered
ActiveChart.SetSourceData Source:=Range("ScannerWKS!$K$2:$N$10")
ActiveChart.ClearToMatchStyle
ActiveChart.ChartStyle = 18
ActiveChart.ClearToMatchStyle
ActiveChart.ClearToMatchStyle
ActiveChart.ChartStyle = 20
ActiveChart.ClearToMatchStyle
ActiveChart.ClearToMatchStyle
ActiveChart.ChartStyle = 44
ActiveChart.ClearToMatchStyle
ActiveChart.ShowValueFieldButtons = False

*****The next Line is where the error occurs******

ActiveSheet.Shapes("Chart 7").IncrementLeft 357
ActiveSheet.Shapes("Chart 7").IncrementTop 180
ActiveSheet.ChartObjects("Chart 7").Activate
ActiveSheet.Shapes("Chart 7").ScaleWidth 0.819791776, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes("Chart 7").ScaleHeight 2.0381944444, msoFalse, _
msoScaleFromBottomRight
ActiveSheet.ChartObjects("Chart 7").Activate
ActiveSheet.Shapes("Chart 7").ScaleWidth 0.9898348171, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes("Chart 7").ScaleHeight 0.9659284497, msoFalse, _
msoScaleFromBottomRight
ActiveWorkbook.ShowPivotTableFieldList = False
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("K12").Select
End Sub

Any help with this issue would be appreciated