Sub refr_6()
'
' refr_6 Ìàêðîñ
' ÷èñòêà
    Range("c16:r1000").Select
    Selection.ClearContents
'óäàëåíèå äèàãðàìì
    Dim ccc As Long
    ccc = Worksheets("6. Äèíàìèêà ïî ÄÎ").ChartObjects.Count
    If ccc > 0 Then
        Worksheets("6. Äèíàìèêà ïî ÄÎ").ChartObjects(1).Delete
    End If
    
    
    
Dim qqq6 As String
Application.ScreenUpdating = False
qqq6 = Worksheets("request").Range("b15").Value

    Worksheets("request").Visible = True
    Worksheets("data6").Visible = True
    Worksheets("data6").Select
    Cells.Select
    Selection.ClearContents
    
    Range("A1").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;" & qqq6 _
        , Destination:=Range("A1"))
        .Name = "qq6res"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With