Tilføjelse af nye linjer ved brug af Macro

Hvordan ser din makro ud, det vil hjælpe os en del i at fejlsøge.

ub Tilføjelse_Af_Ny_Del()
'
' Tilføjelse_Af_Ny_Del Macro
'

'
    Range("M7:O9").Select
    Selection.Copy
    Sheets("Stam_Data").Select
    Range("C2").Select
    Selection.End(xlDown).Select
    Range("C137").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Lager_Oversigt").Select
    Range("P7:R9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Stam_Data").Select
    Range("F137").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("G136:AH136").Select
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range("G136:AH137")
    Range("G136:AH137").Select
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Sheets("Lager_Oversigt").Select
    Range("M7:O9").Select
    Selection.ClearContents
    Range("P7:R9").Select
    Selection.ClearContents
    Range("L22").Select
End Sub

Dit oplæg giver ikke rigtigt mening i forhold til din kode!

Jeg har prøvet at tilpasse koden og fjernet lidt:

Ved ikke om det evt. kunne have noget at gøre med at jeg har tilføjet nogle flere funktioner i Macro´en, at du synes den ser lidt rodet ud.. Da der skal trækkes nogle linjer efterfølgende for at få nogle formler med for at gøre Macro´en fuldendt.

Men ja din kode virker, men den tilføjet stadigvæk ikke nedenunder hvis jeg køre Macro´en flere gange efter hinanden... Så ændre den bare de tal den tilføjet første gang.

Skal lige siges jeg ved heller ikke om det kan lade sig gøre, kunne jo bare godt være :)