Excel Macro to extract data from Website

Following is the code snippet:

With ActiveSheet.QueryTables.Add(Connection:="URL;website", Destination:=Range("$A$1"))
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SaveData = True