Cell Value causes a small change inside another cell

Hello,

for example...
if the word "happy" is in column B, I would like the cells in column A to display what theyre already displaying but add "(H)" to the end of the value.
so in A1 the value is "apple (H)" because "apple" was already in A1 and "Happy" in cell B1 causes the addition of "(H)".

hope that makes sense.

thanks

=IF( B2= "Happy", A2&"H","what to put if not happy")

where would i put that? dont forget the cell value for column A is still Apple, Banana, Orange etc.
how can i put this formula in as well as the original values?

thanks

you would need someone to provide some VBA for that