Sub Macro()
Dim IE As New InternetExplorer
IE.Visible = True
IE.navigate "https://skrendu.lt/lt/flights/VNOc-OPOc/2016-09-15/1"

Do
DoEvents
Loop Until IE.readyState = READYSTATE_COMPLETE
Application.Wait (Now() + TimeValue("00:00:010"))

Dim Doc As HTMLDocument
Set Doc = IE.document
IE.Quit

Dim sTR As String
sTR = Doc.getElementsByClassName("ng-binding ng-scope")(0).innerText
Range(A1) = sTR

End Sub