How can I add these two VBA Codes together?

Question

\'Replacing the "B8" Range from this code:

    Set IE = CreateObject("InternetExplorer.Application")
    
    Set MainPage = ThisWorkbook.Work