[gr8styl]

Αγαπητέ Χρήστο,
αν και δεν είναι σαφές το που βρίσκεται η "... ημερομηνία την οποία πραγματοποιήθηκε ..."
Θεώρησα ότι μπορείς να χρησιμοποιήσεισς το κελί DATA!$F$1 (αν θέλεις χρησιμοποίησε τον τύπο =TODAY() στο F1)

Ο παρακάτω κώδικας αντιγράφει την ημερομηνία (κελί F1) και την απόδοση (κελί F22)
από το φύλλο DATA, στην τελευταία γραμμή (lastrow) στις στήλες Α και Β του φύλλου "REGISTRATION CHANGES"

Sub save_changes()
Dim lastrow
    With Worksheets("REGISTRATION CHANGES")
        lastrow = 1 + .Cells(Rows.Count, "A").End(xlUp).Row
        .Cells(lastrow, "A") = Worksheets("DATA").Range("F1").Value
        .Cells(lastrow, "B") = Worksheets("DATA").Range("F22").Value
    End With
End Sub

Προσάρμοσε τα ονόματα των φύλλων και τα κελιά ή τις στήλες στα μέτρα σου αν χρειάζεται.

Τώρα για λύση με συναρτήσεις θα έλεγα ότι δεν γίνεται αφου το "REGISTRATION CHANGES" έχει τα αποτελέσματα από το DATA σε μια δεδομένη στιγμή.
Με συναρτήσεις δεν μπορούμε να διατηρήσουμε την τιμή κάποιου κελιού μιας προηγούμενης δεδομένης στιγμής.

Θανάσης