Jeg forsøger at lave en knap der indsætter en ny linje med formatet fra den aktive linje, under eller over den aktive linje. det jeg har lavet virker ikke, med indsætning af flere linje og når jeg vil indsætte linje via knap 2 går det helt galt. 

Er nybegynder i Makro/VBA, så alt hjælp vil være meget værdsat. 

https://forum.excel-regneark.dk/uploads/2907/test.xlsm - uploads/2907/test.xlsm

Skriv hvis jeg skal uddybe.

Makroer:

Sub data2()

    Range("data33").Select

    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

    Range("data22").Select

    Selection.Copy

    Range("A7").Select

    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _

        SkipBlanks:=False, Transpose:=False

    Range("D7:F7").Select

 End Sub

Sub data1()

  Range("data22").Select

    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

    Range("data11").Select

    Selection.Copy

    Range("A5").Select

    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _

        SkipBlanks:=False, Transpose:=False

    Range("D5:F5").Select

End Sub 

Det var ikke helt det jeg er ude efter, jeg har behov for at indsætte nye linjer i et ark, efterhånden som man skal bruge dem og indsætte det samme format som den forgående linje.

min meget simple makro kan sætte 1 linje ind, men næste gang du skal sætte en ny linje ind, går det galt, da det jo er en fast celle jeg bruger for indsætning af det kopieret format, så det skal være en variable på en eller anden måde som jeg ikke har viden om(forstand på)   

hvis du har andet du kan byde ind med, vil det være yderst velkommen.