How to combine the selected items of a list and return in a cell

[1tane1]

I have a global list in B column and I want to create a text about the list. If I put "1" in A column, I want my text to be on B11 for the selected items. So excel should do a loop for the selected range and combine the selected items in a new line and give me as an output.

You may see the picture
Untitled 1.jpg

[lancer102rus]

By UDF:
combine.xlsm

[JOHN H. DAVIS]

Maybe:

Sub tane1()
Dim x As String
Dim i As Long
x = "The missing points on the report are listed below:" & vbCrLf
For i = 1 To Range("B" & Rows.count).End(3).Row
    If Range("A" & i) = 1 Then
    x = x & "- " & Range("B" & i) & vbCrLf
    End If
    x = x
Next i
Columns(2).ColumnWidth = 44.57
Rows(Range("B" & Rows.count).End(3)(6).Row).RowHeight = 67.5
Range("B" & Rows.count).End(3)(6) = x

End Sub