Concatenate and ignore blanks

[nujwaan]

Hi Guys,

I'd like to concatenate two columns but ignore blanks.

I've attached the file that I'm working with.

I'd the format to be as shown in the sheet.

This is the code i've got in a module at the mo:

Function MilestoneDate(rngMilestones As Range, rngDates As Range, strDelim As String) As String
Dim rngCell As Range
Dim lngROff As Long, lngCOff As Long
lngROff = rngDates.Row - rngMilestones.Row
lngCOff = rngDates.Column - rngMilestones.Column
On Error Resume Next
For Each rngCell In rngNames.Cells
    If rngCell.Value <> "" Then MilestoneDate = MilestoneDate & strDelim & rngCell.Value & " (" & rngCell.Offset(lngROff, lngCOff) & ")"
Next rngCell
On Error GoTo 0
Milestone = Replace(MilestoneDate, strDelim, "", 1, 1)
End Function

I've got a cell with "=MILESTONEDATE(D9:D23,E9:E23,", ")

But nothing seems to happen.

Any ideas?