Vba data adding in column

I apologise if I did not explain things properly with previous version. I hope I did a better job below:
- new file is attached
- see next post for explanation of VBA when new fragrance is added
- If while you are testing the event trigger stops working (you will know this because nothing happens when you try to add a new fragrance), procedure included to enable events again
it in sheet "Lists", sheet module and run with {CTRL} r

Sub RestartEvents()
'run this with {CTRL} r
    Application.EnableEvents = True
End Sub

NOTES

Changes from previous version
- to make future maintenance easier layout of both sheets is now almost identical
- procedure to add a new fragrance is now automated
- fragrance named ranges are no longer in sheet "Lists"

New fragrance "Mint" used as the example to explain everything

Adding a new fragrance
To add new fragrance "Mint"
- click on Add Fragrance
- takes user to sheet "Lists"
- add fragrance "Mint" in next available cell
NOTE - all spaces are automatically removed from fragrance name

This auto-creates
- sheet "Mint"
- sheet "DataMint"
- named range "Mint"
NOTE - a message box appears if either the fragrance,sheet name or range name already exists

In the 2 new sheets
- columns A and B are auto-created

Named Range
- the named range is dynamic
- named range Mint is based on the values in column A in sheet DataMint
(ReferTo =OFFSET(DataMint!$A$2,1,0,COUNTA(DataMint!$A:$A)-1,1)

User can
- change chemical names text in column A in sheet "DataMint"
- insert kg values in column B in sheet "DataMint"
(warning appears on sheet "Mint" if kg is missing)

Beware
- all values in sheet "Mint" are derived either from formula or from VBA
- user should not amend sheet "Mint"

Deleting a fragrance created in error
- delete the named range
- delete the 2 sheets
- delete fragrance name on sheet "Lists"

To add new data
- click on "Add Data" in sheet Forms
(no change - userform2 looks the same as before)

Data input error
- if user makes an error when inputting data, make manual correction on sheet "DataMint"