Long formula to vba to run in range on selection

I have the following formula that needs to run is cells AE6:OE500.

Any idea how to turn this into a vba set to run when cell the worksheet is changed.

Formula:

Please Login or Register  to view this content.

Any help greatly appreciated, thank you

Tim