Macro to transfer information from html to excel

[kapriano]

My urls are in sheet1 and column 1
All of them are just url Instagram

I'm looking for a macros that only download line 160 and 245
Just line 160 and 245 which contains information from the profile

If any of the information in this line is transferred to the side cell left in sheet1 for each url They will be updated easily.
All in one row and each part in a cell.
I wrote the code below, but it's an amateur macros

Sub get_line()


Dim wb As Object
Dim doc As Object
Dim sURL As String
Dim lastrow As Long
Dim n As Integer

lastrow = Sheet1.Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To lastrow
Set wb = CreateObject("internetExplorer.Application")
sURL = Cells(i, 1)
wb.navigate sURL
wb.Visible = False
While wb.Busy
DoEvents
Wend
'HTML document
Set doc = wb.document
Cells(i, 2) = doc.body.innerText
myarray = Split(Data, vbCrLf)
err_clear:
If Err <> 0 Then
Err.Clear
Resume Next
End If
wb.Quit
Next i

End Sub



for test, insert the Instagram url into the sheet1 in A2

if open html For all Urls instagram in line 160 and 245 There are 5 items
I want these items to be downloaded sheet1. in a row and five cell .Enter the same URL row.
In the picture below, you can see what I mean

Thanks dear friend who helps mehttps8_picofile_comfile8336897192Untitled_picture_png.png

[kapriano]

thanks
this problem resolved .