ал высоко и низко что-то, что будет работать для меня в этом, не повезло! Любая помощь будет так цениться! :) Нужно скопировать данные опционов на акции с Barcharts.com и вставить в таблицу Excel.

вот где я нахожусь:

Sub CopyTables()

    Dim ie As Object
    Dim I As Long
    I = 0
    Set ie = CreateObject("InternetExplorer.Application")
    ie.navigate "https://www.barchart.com/stocks/quotes/GOOG/options?moneyness=allRows&view=sbs&expiration=2018-02-23"
    ie.Visible = True

    Do While ie.Busy And Not ie.readyState = 4
    DoEvents
    Loop

    DoEvents

  Set tables = ie.document.getElementsByTagName("table")
  SetDataFromWebTable tables, Range("B5")
  ie.Quit
End Sub

Если возможно, я бы хотел также извлечь даты из выпадающего списка веб-страниц «Срок действия» и вставить их все в Excel. Заранее большое спасибо за любую помощь в этом!