Sub google_table()

With ActiveSheet.QueryTables.Add(Connection:= _
              "URL;https://docs.google.com/spreadsheets/d/1zgAo-vYp6Cg-XViVlfrurZG44ZjN4MyMwWndHHjYwAc/edit?pli=1" _
              , Destination:=Range("$A$1"))
              .Name = "edit?pli=1"
              .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 = "2"
              .WebPreFormattedTextToColumns = True
              .WebConsecutiveDelimitersAsOne = True
              .WebSingleBlockTextImport = False
              .WebDisableDateRecognition = False
              .WebDisableRedirections = False
              .Refresh BackgroundQuery:=False
          End With
                
End Sub