Automating cell to transfer to another cell

[WANTED]

hi

Cell A1 to A5 has a text value, Cell B1 to B5 has a number value which
represent A1 to A5, now my problem is, if one of those cell in B1 to B5
present a negative value ONLY how can i automatic transfer or populate to C
row
and also transfer the text value to D row

tnx

 

[Gary''s Student]

Say "profit" is in A1 and -15,000 is in B1
in C1:
=IF(B1<0,B1,"")
in D1:
=IF(B1<0,A1,"")