Hello,
The best for you is to create a Name with this Formula
Select the Cells "E2" and copy the Formula (Select it in the Formula Bar)
In the ribbon Open the Name Manager
Add a new name (By exemple SUBSTFRM) and in the ReferTo area put the Formula
Send Ok
Now you can use "= SUBSTFRM" instead of the original function.
Then in VBA you can write :
Range("E2:E10000").Formula = "=SUBSTFRM"
That's enough !
See the exemple...