Sub Macro1() ' ' Macro1 Macro ' ' Application.CutCopyMode = False With ActiveSheet.QueryTables.Add(Connection:= _ "URL;https://www.superenalotto.it/estrazioni/concorso-131/02-novembre-2021", _ Destination:=Range("$A$1")) .CommandType = 0 .Name = "02-novembre-2021" .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,4,""vincite-immediate-table""" .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With End Sub