Bobby
   Here is something to get you started.  I assumed that the sheet that has
the Data Validation cell is named "DataSht".  Then I added another sheet and
named it TempSht.
Place the first of the following macros in the sheet module for the DataSht
sheet.  To do this, right-click on the sheet tab, select View Code, and
paste this macro into that module.  Return to your spreadsheet by clicking
the "X" in the top right corner of the module.
Paste the second macro in a regular module.  I elected to insert a button on
the TempSht sheet and I assigned the second module to that button.
Here is how it works.
You click on the down arrow of the Data Validation cell in the DataSht
sheet.
You click on one of the items.
You repeat the above 2 steps as many times as you want to select the items
you want.
The code will place each item you select into Column A of the TempSht
starting in A2 and going down.
After you have selected all the items you wish to select, go to the TempSht
sheet.
Click on the button.
The code of the second macro will concatenate all the selected items, with 2
spaces between them, and put the result in A1 and set A1 format to "Wrap".
The result is all the items in paragraph form.  You can then copy/paste A1
of the TempSht as you wish.
I'm sending you a small file that has these macros properly placed.  I'm
sending this to the address that comes up from your post.  If this is not a
valid address, send me a valid address.  My email address is
ottokmnop@comcast.net.  Remove the "nop" from this address.  HTH  Otto

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address(0, 0) = "A1" Then
       If Target.Value = "" Then Exit Sub
       Sheets("TempSht").Range("A50").End(xlUp).Offset(1) = Target.Value
   End If
End Sub

Sub WrapItems()
   Dim Rng As Range
   Dim i As Range
   Dim Wrapped As String
   Wrapped = ""
   Set Rng = Range("A2", Range("A" & Rows.Count).End(xlUp))
   For Each i In Rng
       Wrapped = Wrapped & i.Value & "  "
   Next i
   Wrapped = Left(Wrapped, Len(Wrapped) - 2)
   [A1] = Wrapped
   [A1].WrapText = True
   Range("A2", Range("A" & Rows.Count).End(xlUp)).ClearContents
   Sheets("DataSht").Range("A1").ClearContents
End Sub