Change coding to run across multiple rows

Hello,

I currently have the following coding for a set of data on an excel spreadsheet:

Sub DemoMutual2()
Dim URL As String
Dim ieDoc As Object, dObj As Object
Dim cel As Range

    URL = Range("G2").Value
    With CreateObject("InternetExplorer.Application")
        .Visible = False
        .Navigate URL

        Do Until .ReadyState = 4: DoEvents: Loop

        Set ieDoc = .Document
        Set dObj = ieDoc.getElementsByClassName("_50f3")
        [K2].Value = Split(ieDoc.getElementsByClassName("_50f3")(0).innerText, " ")(0)
        For i = 0 To dObj.Length - 1
            If InStr(1, dObj(i).getElementsByTagName("a")(0).innerText, "since") Then
                [M2].Value = Trim(Split(dObj(i).getElementsByTagName("a")(0).innerText, "since")(1))
            End If
        Next
        .Quit
    End With
    Set ieDoc = Nothing
    Set dObj = Nothing
End Sub

At present this only works on one row, based on the URL in cell G2. What I want this code to do is run for all of the URLs in column G (G2,G3,G4 etc) and return the required results in the cells specified in the code (K2, K3, K4 etc and M2, M3, M4 etc).

At present this works perfectly for the one row, but I am struggling to change it so I can do it for multiple rows.

Any help is much appreciated.

Hi Marvin,

Many thanks for your response.

I am afraid that didnt work. I have noticed there is nothing in the coding regarding column K and that part of the scrape into that cell...

Still struggling with the code on this one. Anyone able to help?