Sub GetTextFromClipboard()
    'No Library Reference required.
    
    Dim objClipBoard        As Object
    Dim lngCounter          As Long
    Dim a, c As Range, i&
 
    Set objClipBoard = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    objClipBoard.GetFromClipboard
 
    For lngCounter = 1 To UBound(Application.ClipboardFormats)
        If Application.ClipboardFormats(lngCounter) = xlClipboardFormatText Then
            'MsgBox objClipBoard.GetText(lngCounter)
            a = Split(objClipBoard.GetText(lngCounter), vbNewLine)
        End If
    Next lngCounter
 
    Set objClipBoard = Nothing
    
    For Each c In Selection.Columns(1).Cells
        If c = c.MergeArea.Cells(1) Then
            If i <= UBound(a) Then c.Value = a(i): i = i + 1
        End If
    Next
End Sub