VBA that does what an Index & Match does

Hi Experts
I have an excel file where I have one column where I have an Index and Match formula to populate the description from another work sheet

It works perfectly, but because multiple people use it, the formula keeps getting deleted and file saved

I have tried Format Change and Lock and then Protected the worksheet, but then I have other issues where rows can't be added or people like to go to the last row and just type and it adds to the table, but once protected they can't do all that

So I was wondering if the Index and Match can be written as a VBA so when the Product Code is entered in Column F, the VBA will do the Index and Match and populate Column G with the description

The below is the Index and Match formula that I am using

=IFNA(INDEX(Database!B:B,MATCH([@[Product Code]],Database!A:A,0)),"")

I have also attached a sample excel file

Regards
Rah