Formula Conversion to Office 2016

Cell B2 formula , Drag down

Formula:

=CustomConcatenate(A2,";",$F$2:$F$6)

Function CustomConcatenate(lookupValue As String, delimiter As String, lookupRange As Range) As String
    Dim result As String
    Dim cell As Range
    Dim matchingValues As String
    result = ""
    For Each cell In lookupRange
        If InStr(1, lookupValue, cell.Value, vbTextCompare) > 0 Then
            matchingValues = matchingValues & cell.Value & delimiter
        End If
    Next cell
    If Len(matchingValues) > 0 Then
        matchingValues = Left(matchingValues, Len(matchingValues) - Len(delimiter))
    End If
    CustomConcatenate = matchingValues
End Function