VisualBasic Spin Button copy Range background

[kinimod2010]

Hallo Leute,

Ich bin wieder einmal am Basteln. Ich will aus verschieden Tabellenblätter die Werte für die Grafiken in das Letzte Tabellenblatt kopieren und das alles ohne das ich das kopieren sehe. Ich habs daweil so geschaft :/

hier sehe ich aber das herumspringen

es Stehen werte im bereich T28:AB40

Kann mir vl jemand helfen?

Sub spin_up()
Dim asheets As Integer
Dim lsheets As Integer

Application.ScreenUpdating = True

lsheets = Sheets.Count
Sheets(lsheets).Range("C3:K15").ClearContents


Sheets(asheets + 1).Activate
Sheets(asheets + 1).Range("T28:AB40").Select
Selection.Copy
Sheets(lsheets).Activate
Sheets(lsheets).Range("c3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range("C3:K15")
    ActiveChart.ChartType = xlLine 'Gestapelte Linie
    
 Application.CutCopyMode = False


End Sub

Vielen Dank Leute