'Create HTMLFile Object
    Set HTML_Content = CreateObject("htmlfile")
 

'Copy data from site
'===============================================================================================================

    Dim htm As Object
    Dim Tr As Object
    Dim Td As Object
    Dim Tab1 As Object
    Dim Web_URL As String
    Dim HTML_Content As Object
    Dim Column_Num_To_Start As Integer
    Dim iRow As Integer
    Dim iCol As Integer
    Dim iTable As Integer
    
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Application.ScreenUpdating = False
ThisWorkbook.Worksheets("Àíàëèç").Select

'ActiveSheet.Range("A2:AO65000").ClearContents

 
    'Replace the URL of the webpage that you want to download
    Web_URL = VBA.Trim(ThisWorkbook.Worksheets("Áàçà").Cells(Àíàëèç1, col))
 
    'Create HTMLFile Object
    Set HTML_Content = CreateObject("htmlfile")
 
    'Get the WebPage Content to HTMLFile Object
    With CreateObject("msxml2.xmlhttp")
        .Open "GET", Web_URL, False
        .send
        HTML_Content.Body.Innerhtml = .responseText
    End With