Sub DynamicWebPage()
' here I define elemnts for the loop
Dim sht As Worksheet
Set sht = ThisWorkbook.Sheets("Sheet2")
Dim LastRow As Long
Dim i As Long
LastRow = sht.Cells(sht.Rows.Count, "D").End(xlUp).Row
' here I define Internet Explorer
Dim IE As Object
Dim Doc As HTMLDocument
Set IE =...