How to delete cells (i.e. make a blank cell) if numbers are negative

Folks,
I am very new to VBA and want to know how to delete cells containing any number less than 0 (i.e. negative value) using Excel VBA.
I'd like to do it for all rows (more than 80000) in column E, F, G, H.

For example

a.JPG

then the result should look like

b.JPG

making every negative number cell "blank".
Can anyone give me the code to do this?

Thank you in advance for your help.