Public Function GetDiskInfo()
    Dim pWMI As Object, pDisks As Object, pDisk As Object
    Dim res As String, s As String
     
    Set pWMI = GetObject("winmgmts:\\")
    Set pDisks = pWMI.ExecQuery("Select * from Win32_DiskDrive Where BytesPerSector Is Not Null", , 48)
     
    For Each pDisk In pDisks
        s = TrimAll(pDisk.SerialNumber)
        If Len(s) Then res = res & "-" & s
    Next
    GetDiskInfo = Mid(res, 2)
End Function

    '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