ActiveSheet.Pictures.Paste runtime error

Sub Macro2()
' Macro2 Macro
Application.DisplayAlerts = False   'switching off the alert button
Sheets("ResUsage").Select
Columns("B:B").Select
Sheets.Add.Name = "days_count"
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"ResUsage!R1C2:R1048576C2", Version:=6).CreatePivotTable TableDestination:= _
"days_count!R3C1", TableName:="PivotTable2", DefaultVersion:=6
Sheets("days_count").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("PivotTable2")
.ColumnGrand = True
.HasAutoFormat = True
.DisplayErrorString = False
.DisplayNullString = True
.EnableDrilldown = True
.ErrorString = ""
.MergeLabels = False
.NullString = ""
.PageFieldOrder = 2
.PageFieldWrapCount = 0
.PreserveFormatting = True
.RowGrand = True
.SaveData = True
.PrintTitles = False
.RepeatItemsOnEachPrintedPage = True
.TotalsAnnotation = False
.CompactRowIndent = 1
.InGridDropZones = False
.DisplayFieldCaptions = True
.DisplayMemberPropertyTooltips = False
.DisplayContextTooltips = True
.ShowDrillIndicators = True
.PrintDrillIndicators = False
.AllowMultipleFilters = False
.SortUsingCustomLists = True
.FieldListSortAscending = False
.ShowValuesRow = False
.CalculatedMembersInFilters = False
.RowAxisLayout xlCompactRow
End With
With ActiveSheet.PivotTables("PivotTable2").PivotCache
.RefreshOnFileOpen = False
.MissingItemsLimit = xlMissingItemsDefault
End With
ActiveSheet.PivotTables("PivotTable2").RepeatAllLabels xlRepeatLabels
ActiveWorkbook.ShowPivotTableFieldList = True
ActiveSheet.PivotTables("PivotTable2").AddDataField ActiveSheet.PivotTables( _
"PivotTable2").PivotFields("LogDate"), "Count of LogDate", xlCount
With ActiveSheet.PivotTables("PivotTable2").PivotFields("LogDate")
.Orientation = xlRowField
.Position = 1
End With
Columns("A:B").Select
ActiveSheet.Shapes.AddChart2(227, xlLine).Select
ActiveChart.SetSourceData Source:=Range("days_count!$A$3:$B$12")
ActiveChart.Parent.Cut
Sheets("ResUsage").Select
Range("CJ65").Select
ActiveSheet.Pictures.Paste
Sheets("days_count").Select
ActiveWindow.SelectedSheets.Delete
End Sub