How to merge cells into comma seperated list

[Delta729]

I have several cells, from F2 thru AU2. I'm trying to merge these cells into a comma seperated list in one cell. However, some of the cells are empty.

Is there a way to do this?

 

[Fluff]

How about

Sub Delta729()
   Dim x As Variant
   x = join(Application.Index(Range("F2:AU2").Value, 1, 0), " ")
   x = Replace(Application.Trim(x), " ", ",")
   Range("E4").Value = x
End Sub

Or if you have 365 look at the TextJoin function

 

[Delta729]

I should have mentioned that, yes I do have Office 365. Thank you so much.

 

[Fluff]

You're welcome & thanks for the feedback