Function CombineColumn(myRange As Range)
Dim cell As Range
For Each cell In myRange
If Len(cell) > 0 Then
CombineColumn = CombineColumn & cell.Value & ","
End If
Next cell
CombineColumn = Left(CombineColumn, Len(CombineColumn) - 1)
End Function
=CombineColumn(A1:A800)