Downloading the whole webpage as HTML/PDF using Excel VBA - html

Question

I'm creating a program that can visit each link that is located in Column A and download it as HTML/PDF into my local storage. So far, the program can visit each link listed in the column.
Code for opening the links one by one:
Sub visitLinks()
Dim extractedLinks As Range
Dim urls As String
Dim appIE As Object
Dim LastRow As Long
Dim rCell As Range
Dim rRng As Range
Application.ScreenUpdating = False
Set appIE = CreateObject("InternetExplorer.Application")
Set sht = ThisWorkbook.Worksheets("s1")
LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row
Set rRng = sht.Range("A2:A" & LastRow)
For Each rCell In rRng.Cells
With appIE
.navigate rCell.Value
.Visible = True
End With
Do While appIE.readyState <> 4: Wait 5: Loop
Application.StatusBar = "Downloading as HTML..."
DoEvents
On Error Resume Next
Next rCell
appIE.Quit
Set appIE = Nothing
Application.StatusBar = ""
Application.ScreenUpdating = True
End Sub
------------------------
Private Sub Wait(ByVal nSec As Long)
nSec = nSec + Timer
While nSec > Timer
DoEvents
Wend
End Sub
What I'm trying to do is, after the program visits the first link. It will save the webpage as HTML/PDF and save it into C:......\folder[name].html/.pdf
If it's possible I would also like it to take the file name in column B.
Column A
Column B
google.com
google
facebook.com
facebook
The files located in C:......\folder\ should be google.html/.pdf and facebook.html/.pdf