Userform -log af data

Hej er ved at oprette en userform, som via et id i kolonne 1 skal trække et givent antal kolonner op i userformen, hvorefter dataen i de enkelte celler hvis nødvendigt kan rettes og de nye værdier indsættes i regnearket.

Er det muligt, hvis der foretages ændringer i userformen, at gemme den orginale linje i et nyt ark (eksempelvis "ark2")med en datoangivelse, sådan at
man altid har informationen før tilrettelsen. Flytningen af gamle værdier til "ark2" skal ske hver gang, der foretages en ændring.

Jeg forestiller mig af koden, der flytter de ganle værdier over i ark 2 og indsætter dato for ændring kan indlemmes i nedenstående kode, men kan ikke helt gennemskue hvordan det skal gøres

N.B - hvis nogen sidder og roder med lignede udfordringer, så er dette spørgsmål til information et tillægsspørgsmål til tidligere stillede spørgsmål i "hjælp til interaktiv userform"


Vba-koden, der gemmer ændrede værdier ser ud som følger.


Sub EditAdd()

Dim emptyRow As Long, flag As Boolean
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1

flag = False
i = 0
id = UserForm1.TextBox1.Value

Do While Cells(i + 1, 1).Value <> ""

    If Cells(i + 1, 1).Value = id Then
        flag = True
        For j = 2 To 6
            Cells(i + 1, j).Value = UserForm1.Controls("TextBox" & j).Value
        Next j
    End If
   
    i = i + 1
   
Loop

If flag = False Then
    For j = 1 To 6
        Cells(emptyRow, j).Value = UserForm1.Controls("TextBox" & j).Value
    Next j
End If

End Sub