Copy Text to ClipBoard - Excel VBA

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

Public Sub Copy()
  Dim CopytoClipBoard As Range
    Set CopytoClipBoard = ActiveWorkbook.ActiveSheet.Range("A1:A14")
  CopytoClipBoard.Copy
End Sub