VB code to filter and move positive number to another column

Hello:

Please refer to attached file.
I have data as shown.
Need VB Code to cut and paste all positive data from column E and paste at its respective row in column F.
In this case highlighed will be moved @ cell F9
Once this is done then select column E and convert all cells to positive number.
Lastly, need formula to be added in cell H2 down to the last row of the data.
Formula in cell H2 = H1+E2+F2 and copy down.

Let me know if you have any questions.
Thanks.

Riz