Невозможно вставить диапазон данных из буфера обмена в выбранную ячейку другой книги

Question

Как обрабатывать вставку диапазона данных из буфера обмена в конце выполнения определенного макроса.

Рабочий процесс

COPY преобразовать рабочую книгу1 в буфер обмена >> рабочая книга2_активировать запуск макроса >> рабочая книга2_подзапись до ПАСТА диапазон от буфера обмена до рабочего листа рабочей книги2

код

Sub PasteFromClipboard()

    Set clipboard = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    ' Or
    'Dim clipboard As MSForms.DataObject
    'Set clipboard = New MSForms.DataObject

    clipboard.GetFromClipboard

    ' error induced on all following codes
    ActiveSheet.Range("B" & 1).PasteSpecial xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial
    ActiveSheet.Paste

End Sub

Рабочая книга-1: Снимок

Рабочая книга-2: ошибка макроса