Counting entries in columns and concatenating headers in keyword column

Sorry I am unable to upload documents

I have a spreadsheet with column headers (Sales, Marketing, HR etc) and rows referring to various documents. If there is a document in a column, it is marked with a 1. So Row 2 has a 1 in the Marketing and HR column.

I need a column named Keywords and it counts all the 1s in the row and then shows the column header(s) separated by a comma. This column would look like “Marketing, HR”

Something like:

IF there is a 1 in column, add column header.

The result for example would be “Marketing, HR” – where there is a 1 in the Marketing and HR column.

I am able to do this in VBA if needed.

Hope this makes sense.

Many thanks!
I couldn't get this to work until I realised I needed to press Ctrl+Shift+Enter - now it works perfectly and has saved hours of work!