Option Explicit
Sub SetClipboardText()

Dim i As Long
Dim contant As String
Dim MS1 As Byte

'Проверка на выбор целого столбца!
If Selection.Rows.Count = ActiveSheet.Rows.Count Then
    MS1 = MsgBox("Вы выбрали целый столбец данных!," & Chr(10) & "Продолжить?", vbOKCancel)
    If MS1 = vbOK Then GoTo StartIT Else End
End If
'Проверка на выбор только одной ячейки! на выбор только одного столбца!
If Selection.Count = 0 Or Selection.Count = 1 Or Selection.Columns.Count > 1 Then
    MsgBox "Нужно выбрать более одной ячейки в одном столбце!", vbCritical
    End
End If

StartIT:
For i = Selection.Row To Selection.Row + Selection.Rows.Count - 1
    If contant = "" Then
        contant = Cells(i, Selection.Column)
    Else
        contant = contant & "," & Cells(i, Selection.Column)
    End If
Next i
With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .SetText contant
        .PutInClipboard
End With
End Sub