Create a MACRO to save previous values of a changed Row in new ones (creating a database in Excel)

Hi,

I'm here today to solve a problem that is really blocking me, and i would be super greatful if you could help me to solve it!

As you can see in the attached file, i have the following purpose: I want to create a MACRO that i could associate to the "MACRO button", which would allow me when i press it to save in the Database sheet the new row that i created. But the "Database" page should keep the data of the previous rows that he saved by inserting the new ones on top, without overwriting the old ones but just pushing them in the lower rows. The values saved in the Database would then create new rows with the old data everytime i push the button in "Input". I found a code online that keeps track of previous data obtained, which is what i want to do, but 1) it does it with columns instead of rows and 2)it keeps track only of the last result, without creating new columns (in my case rows) to mantain memory of also the previous data. I will post it down to let you see what i mean, but ofc i would be open to both a new code or hints on how to adapt this one to my needs. Thanks a lot in advance! I will just disturb you mtarler since i saw that you are a magician of Excel, solving a lot of threads

Dim xRg As Range
Dim xChangeRg As Range
Dim xDependRg As Range
Dim xDic As New Dictionary
Private Sub Worksheet_Change(ByVal Target As Range)
Dim I As Long
Dim xCell As Range
Dim xDCell As Range
Dim xHeader As String
Dim xCommText As String
On Error Resume Next
Application.ScreenUpdating = False
Application.EnableEvents = False
xHeader = "Previous value :"
x = xDic.Keys
For I = 0 To UBound(xDic.Keys)
Set xCell = Range(xDic.Keys(I))
Set xDCell = Cells(xCell.Row, 4)
xDCell.Value = ""
xDCell.Value = xDic.Items(I)
Next
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim I, J As Long
Dim xRgArea As Range
On Error GoTo Label1
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
Set xDependRg = Target.Dependents
If xDependRg Is Nothing Then GoTo Label1
If Not xDependRg Is Nothing Then
Set xDependRg = Intersect(xDependRg, Range("G:G"))
End If
Label1:
Set xRg = Intersect(Target, Range("G:G"))
If (Not xRg Is Nothing) And (Not xDependRg Is Nothing) Then
Set xChangeRg = Union(xRg, xDependRg)
ElseIf (xRg Is Nothing) And (Not xDependRg Is Nothing) Then
Set xChangeRg = xDependRg
ElseIf (Not xRg Is Nothing) And (xDependRg Is Nothing) Then
Set xChangeRg = xRg
Else
Application.EnableEvents = True
Exit Sub
End If
xDic.RemoveAll
For I = 1 To xChangeRg.Areas.Count
Set xRgArea = xChangeRg.Areas(I)
For J = 1 To xRgArea.Count
xDic.Add xRgArea(J).Address, xRgArea(J).Formula
Next
Next
Set xChangeRg = Nothing
Set xRg = Nothing
Set xDependRg = Nothing
Application.EnableEvents = True
End Sub