Basic Test:
Public Sub ClipBoardCopy()
Dim MyDataObject As Object
Set MyDataObject = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
With MyDataObject
.SetText "TEST"
.PutInClipboard
End With
End Sub
Another Version:
Public Sub Copy()
Dim CopytoClipBoard As Range
Set CopytoClipBoard = ActiveWorkbook.ActiveSheet.Range("A1:A14")
CopytoClipBoard.Copy
End Sub