I have a macro set up and what it should do is go to a website copy the web page and paste into cell A1.
The problem I am having is that it will open the IE, open the Page but will not do the copy paste function can someone tell me what i am doing wrong

Sub Macro4()

   Dim IE As Object
     
     Sheets("Sheet2").Select
     Cells.Select
    Selection.Delete Shift:=xlUp
    Range("A1:A1000") = "" ' erase previous data
    Range("A1").Select
     
    Set IE = CreateObject("InternetExplorer.Application")
    With IE
        .Visible = True
        .Navigate "http://www.google.com" ' shou
        Do Until .ReadyState = 4: DoEvents:  Loop
        End With
         
        
        IE.ExecWB 17, 0 '// SelectAll
        IE.ExecWB 12, 2 '// Copy selection
        ActiveSheet.PasteSpecial Format:="Text", link:=False, DisplayAsIcon:=False
        Range("A1").Select
        IE.Quit
        
    
    
End Sub