VBA opening IExpl and taking screenshot fails to paste it in Excel Sheet

I have this Macro that fails on the last row by saying: PasteSpecial Method of Range Class failed - Rune time 1004.

1. Anyone can help me make it work?
2. Is it possible to save the screenchot as an attachment on this sheet that I can double click it if I need to see the screenshot?

Thank you all!

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
Private Const VK_SNAPSHOT As Byte = 44
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_SHOWMAXIMIZED = 2
Private Const VK_LCONTROL As Long = &HA2
Private Const VK_V = &H56
Private Const KEYEVENTF_KEYUP = &H2

Sub Sample()
    Dim IE As Object
    Dim hwnd As Long, IECaption As String
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    IE.Navigate "www.google.com"
    Sleep 5000
    '~~> Get the caption of IE
    IECaption = "Google - Internet Explorer"

    '~~> Get handle of IE
    hwnd = FindWindow(vbNullString, IECaption)

    If hwnd = 0 Then
        MsgBox "IE Window Not found!"
        Exit Sub
    Else
        '~~> Maximize IE
        ShowWindow hwnd, SW_SHOWMAXIMIZED
    End If

'--Pause
Sleep 1000
    
    DoEvents
    '~~> Take a snapshot
    Call keybd_event(VK_SNAPSHOT, 0, 0, 0)

    '~~> Start Word
    Workbooks("Save PDF.xlsm").Activate
    Range("A1").Select
    Selection.PasteSpecial
    
End Sub