Sub KopierOgLimInn()
    Dim sisteRad As Long
    Dim sisteKolonne As Long
    Dim nyRad As Long
    
    ' Finn siste rad med data i kolonne A
    sisteRad = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' Finn siste kolonne med data i raden
    sisteKolonne = Cells(sisteRad, Columns.Count).End(xlToLeft).Column
    
    ' Finn neste ledige rad for innsetting
    nyRad = Cells(Rows.Count, 1).End(xlUp).Row + 1
    
    ' Kopier dataene fra siste rad
    Range(Cells(sisteRad, 2), Cells(sisteRad, sisteKolonne)).Copy
    
    ' Lim inn dataene i første ledige rad under
    Range(Cells(nyRad, 2), Cells(nyRad, sisteKolonne)).PasteSpecial xlPasteValues
    
    ' Endre celleverdien i kolonne F for den limte raden
    Cells(nyRad, 6).Value = "S"
    
    ' Slå av kopieringsmodus
    Application.CutCopyMode = False
End Sub