VBA to Auto Populate the “AutoPopulate” sheet as data is being entered in EnterData sheet

Looking for VBA code to auto populates the “Auto Populate” worksheet as data is being entered in the “Enter Data” worksheet (main data entering sheet). VBA conditions:

VBA Code Conditions:
1. When I go back to make changes to the data entered in any ** the cell, the Auto Populate worksheet should capture the changes. For example, if I delete Product name Soya in row 3, column A and re-enter Milk, milk should be captured for the Product name
2. If one mistakenly enter data in row 6, column A instead ** the next empty (row 4 column A), the VBA code should auto populate the data on the next empty cell in the Auto Populate worksheet (see sample data)
3. If I delete all the data entered in the Enter Data worksheet, the Auto populate sheet should retain all auto populated data. When new data is entered, the auto populate should continue on the next empty row

Note: The Auto populate worksheet is a database to hold data entered into the Entered Data worksheet.

Thanks in advance.

The only way I can see this working is if each row entered in your "Enter Data" sheet had a unique identifier that can be used to link it to the data copied to the other sheet, for example, a unique ID number or unique order number. Is this possible?

Copy and paste this macro into the worksheet code module. Do the following: right click the tab for your sheet "Enter Data" and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. The macro is triggered by a change in any cell in column G (Unique ID). This means that you have to enter the data in all the other columns first and enter the Unique ID last. If you go back and make a change in any row in "Enter Data", make the change first and then re-enter the Unique ID in column G.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("G:G")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Dim orderNum As Range
    On Error GoTo exitcode
    If Target <> "" Then
    Set orderNum = Sheets("AutoPopulate").Columns(7).Find(Target, LookIn:=xlValues, LookAt:=xlWhole)
    If orderNum Is Nothing Then
        Target.EntireRow.Copy Sheets("AutoPopulate").Cells(Rows.Count, "A").End(xlUp).**fset(1, 0)
    Else
        Target.EntireRow.Copy Sheets("AutoPopulate").Cells(orderNum.Row, 1)
    End If
    End If
    Application.EnableEvents = True
    Application.ScreenUpdating = True
exitcode:
    Application.EnableEvents = True
End Sub

Copying the cells one at a time as they are entered is problematic. The code the way it is designed will do what you want including copying any changes you make. The only thing that has to be done is that the Unique ID has to be re-entered each time a change is made. There may be a way to do it in real time but unfortunately my VBA aren't up to the task.

It was my pleasure.