How to copy website data and paste it to excel worksheet? - html

Question

I have a very simple goal but have had some struggles truly implementing it.
Essentially I want to run a vba code that will
1.) Open a webpage in IE
2.) Copy the entire webpage (Basically click Control A on the page)
3.) Copy that information onto a worksheet
Right now the code just opens the website put I cannot get it to copy the page and then copy it to a worksheet. Thank you for your expertise.
Sub website_test()
'Download Projections as CSV
'Download Projections as
Dim ie As Object
Dim ht As HTMLDocument
Dim Button As Object
Dim i As Integer
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.navigate ("https://www.numberfire.com/nba/daily-fantasy/daily-basketball-projections")
Do Until ie.readyState = 4
DoEvents
Loop
Set ht = ie.document
Set elems = ht.getElementsByClassName("title may-blank")
For Each elem In elems
Debug.Print (elem.innerText)
Next
Set Button = ht.querySelector("span.hov-underline")
'Button.Click
app.document.execCommand "SelectAll", False
app.document.execCommand "Copy", False
'wait the download prompt appear
Application.Wait (Now + TimeValue("00:00:03"))
Application.SendKeys "%{s}"
'Waiting for the site to load.
Application.Wait (Now + TimeValue("00:00:03"))
ie.Quit
Range("A1").Select
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=
_False, NoHTMLFormatting:=True
ActiveSheet.Cells.WrapText = False
ActiveSheet.Cells.MergeCells = False
'ie.Quit
End Sub