Macro For Excel Formula

Hello Forum,
I am exploring a possibility to convert the following excel Formula in a valid Macro Procedure

=SUBSTITUTE(IF(D5<0,"ap,","")&IF(E5>0,"ac,","")&IF(PRODUCT(F5:H5)>0,"All,",IF(F5>0,"b1,","")&IF(G5>0,"b2,","")&IF(H5>0,"b3,",""))&"@",",@","")

Attached is the workbook for clarity.Any help will be much appreciated.
Regards