Excel VBA - concatenate selected cells into a string to clipboard

Question

Objective:

1. Select cells
2. Trigger VBA code
3. Selected cells are now concatenated into one string with specified delimiter (e.g. space or dash).
4. Clipboard now has that string ready to be pasted.

Below code does not do that, how to solve?

Sub ConcatenateStrings()

Dim StringOne as String
Dim StringTwo as String

StringOne = Range("A1").Value
StringTwo = Range("B1").Value 

Range("C1").Value = StringOne & StringTwo

End Sub

It is not a duplicate question, as point 3 above is not covered in your suggested answer.