Extract information from a site

I want to extract all information from the below site:

https://www.pucatrade.com/sendCards.html

It is required that the user logs in (must have a user name as password). It is free to register at though. I am hoping someone can help me. I want to extract information from the site.

puca.PNG

The above is the portion of the site that I want extracted. Sometimes it will be blank. Basically I want to be able to parse data from the site (preferably without ever showing IE). I want to know when that portion of the site isn't blank. Maybe a way to login to the site in the code too, not to big of a deal if it isn't possible. And if someone can maybe just help extract all data from the site without having to create an account for the website that would work too, as I have enough knowledge of excel that I could write a formatting macro to extract the relevant data.

This is what I found but I don't know how to "login" using this code. Also there is a script error that appears when it runs, is there a way to suppress this error?

Public Sub WebQuery()
Dim cnt As Long
Dim waitTime As Long

alertTime = Now + TimeValue("00:02:00")
Application.OnTime alertTime, "WebQuery"

Const READYSTATE_COMPLETE As Long = 4
Dim x As Integer

URL = "https://www.pucatrade.com/sendCards.html"
Set ie = Sheet2.WebBrowser1
ie.Visible = 1
DoEvents
ie.navigate URL
Do Until ie.readyState = READYSTATE_COMPLETE
DoEvents
Loop

Application.DisplayAlerts = False

Do Until ie.readyState = READYSTATE_COMPLETE
DoEvents
Loop
Application.Wait Now + TimeValue("00:00:03")
HTMLdata = Sheet2.WebBrowser1.document.DocumentElement.innerText
HTMLdata = VBA.Split(HTMLdata, Chr(13)) 'change the split as required CHR(13) is for carriage return.
For x = 0 To UBound(HTMLdata)
Sheet1.Range("A" & (x + 1)) = HTMLdata(x)
Next x

End Sub