The following logic exist to form an archive of the changing values of A1
and A2 (.Cells(xlr, 8) = .Range("A1")). What if A1 value of an other excel
sheet (or book) (other then "sheet1") is referenced?

Sub ArchiveA2()
Dim xlr As Long
With Sheets("Sheet1")
.Range("G1") = "Value"
xlr = .Cells(Rows.Count, "G").End(xlUp).Row + 1
.Cells(xlr, 7) = Format(Date, "dd/mm/yyyy")
.Cells(xlr, 8) = .Range("A1")
.Cells(xlr, 9) = .Range("A2")
End With
End Sub