Sub Макрос1()
'
' Макрос1 Макрос
'

'
     With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.yandex.ru", Destination:=Range("$G$6"))
         .Name = "www.yandex.ru"
         .FieldNames = True
         .RowNumbers = False
         .FillAdjacentFormulas = False
         .PreserveFormatting = True
         .RefreshOnFileOpen = False
         .BackgroundQuery = True
         .RefreshStyle = xlInsertDeleteCells
         .SavePassword = False
         .SaveData = True
         .AdjustColumnWidth = True
         .RefreshPeriod = 0
         .WebSelectionType = xlSpecifiedTables
         .WebFormatting = xlWebFormattingNone
         .WebTables = "3"
         .WebPreFormattedTextToColumns = True
         .WebConsecutiveDelimitersAsOne = True
         .WebSingleBlockTextImport = False
         .WebDisableDateRecognition = False
         .WebDisableRedirections = False
         .Refresh BackgroundQuery:=False
     End With
      
End Sub

Sub Макрос2()
'
' Макрос2 Макрос
'

'
     Selection.QueryTable.Refresh BackgroundQuery:=False
End Sub