VBA - Vælg den sidste linie og indsæt række

Her er koden:

Sub indsætLinje()
Dim sidsteRække As Long, nyRække As String
    sidsteRække = ActiveCell.SpecialCells(xlLastCell).Row
   
    nyRække = sidsteRække - 1 & ":" & sidsteRække - 1
   
    Rows(nyRække).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("G" & Selection.Row) = "T"
End Sub

obs - glemte lige celleA

Sub indsætLinje()
Dim sidsteRække As Long, nyRække As String
    sidsteRække = ActiveCell.SpecialCells(xlLastCell).Row
   
    nyRække = sidsteRække - 1 & ":" & sidsteRække - 1
   
    Rows(nyRække).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
   
    ActiveCell.FormulaR1C1 = "=R[-1]C+1"
    Range("G" & Selection.Row) = "T"
End Sub

ja tak det virker perfekt!
MEN

er det muligt at i stedet for den nederste linie, så gå ud fra den linie der står eks: "Indsæt herover!" den står i kolonne A

Toste

Jeg synes vi skal afslutte dette spørgsmål.

Så kan du oprette et nyt..