Excel VBA - concatenate and carriage return

[amcastlehouse]

Good morning

I am using the following code (found using google) to concatenate an entire column. I am wanting the information to be on the line below but in the same cell so that it looks like this for example:

Adele Castlehouse
James Trafford
Andrew Short
Jack Porter.

I'm quite new to VBA and I'm not sure how to incorporate the carriage return to the following code (if at all possible)

Function CONCT(varRange As Range, strDel As String) As String
CONCT = Join(WorksheetFunction.Transpose(varRange), strDel)
End Function

Thanks
Adele

[patel45]

Function CONCT(varRange As Range) As String
CONCT = Join(WorksheetFunction.Transpose(varRange), vbCrLf)
End Function

[amcastlehouse]

Thank you for your reply, however, there are some cells in the columns that are blank. This code shows the squares on each blank line.