Macro VBA - Merge Text Strings into One Cell with data validation

I need to merge 2 or more text strings in separate cells to one cell with if commands true part.

Case :

Sheet1 (TV) (RADIO) (OVEN) (FAN)
(Purchased) B1 = 1 , C1 = 1 , D1 = 0 , E1 = 1
B2 = 0, C2 = 0 , D2 =1 , E1 = 1

Sheet2
(Items)
A2 = "21 Inch TV "
A3 = "Sony Radio"
A4 = "Microwave Oven"
A5 = "Table Fan"


OUTPUT
Sheet3
(Purchase Record) - new file for every record
C2 = "21 Inch TV - Sony Radio - Table Fan"
etc..

I need to check that Sheet1 for true values and then get relevant text strings from Sheet 2 and then Merge all text strings in to one cell in Sheet3 and save as new file


And I need to method to add text to existing text cell by VBA
Ex:
After processing Sheet3 C2: = "21 Inch TV - Sony Radio - Table Fan"
then modify it by adding "PURCHASED" to the end

Sheet3 C2: = "21 Inch TV - Sony Radio - Table Fan PURCHASED"

How can i do that??