Get Data from MsgBox into a cell

Hello,

This code works perfectly to scrape data from a website and it shows it via a msgbox:

Sub Data_scraper()
    Dim IE As New InternetExplorer
    Dim ieDoc As HTMLDocument

    With IE
        .Visible = False
        IE.navigate Sheets("Sheet1").Range("G54").Value
        Do Until .readyState = 4: DoEvents: Loop
        Set ieDoc = .document
        MsgBox ieDoc.getElementsByClassName("editorLabel")(0).innerText
        
    End With
    IE.Quit
End Sub

However, after testing I would now like the data from my Msgbox to go into a cell on my worksheet. How would I go about doing this?

Just store what the message box was passed in variable instead and then set that variable as the value of the range object representing the cell, or skip the variable and use what you passed the msgbox as the value of the range.

ie:

range.value = ieDoc.getElementsByClassName("editorLabel")(0).innerText

Right ok. I have changed it to this, but getting no joy:

Sub Data_scraper()
    Dim IE As New InternetExplorer
    Dim ieDoc As HTMLDocument
    Dim cel As Range

 For Each cel In Range("G2", Range("G" & Rows.Count).End(xlUp))
URL = cel.Value
With CreateObject("InternetExplorer.Application")
    .Visible = False
    .navigate URL

        Do Until .readyState = 4: DoEvents: Loop
        Set ieDoc = .document
        cel.Value = ieDoc.getElementsByClassName("editorLabel")(0).innerText
        
    End With
    IE.Quit
    Next
End Sub