[Alexsandra]

Perchè invece di creare il grafico, copiarlo in un altro foglio e poi rimuoverlo non copi direttamente nel foglio "storico". Prova a valutare un codice come questo

Sub Test() ' crea grafico
Dim LastRow As Long
Dim Rng1 As Range
Dim ShName As String

With ActiveSheet
    LastRow = .Range("K" & .Rows.Count).End(xlUp).Row
    Set Rng1 = .Range("K2:K" & LastRow & ", L1:L" & LastRow)
End With

Charts.Add

With ActiveChart
    .ChartType = xlLine
    .SetSourceData Source:=Rng1

  With .SeriesCollection.NewSeries
    .AxisGroup = 2
  End With
  
.Location Where:=xlLocationAsObject, Name:="storico"
End With

With ActiveSheet.ChartObjects("Grafico 1") 'dimensioni grafico
    .Width = 300
    .Height = 150
    .Top = Range("A5").Top
    .Left = Range("A5").Left + 5
    End With
Sheets("foglio1").Select

Set Rng1 = Nothing

End Sub