Query tables error in VBA - vba

Question

I am fetching data in excel sheet from a website but I'm getting error
object "variable or with block variable not set"
at this part of code. You can find whole code I have tried so far below.
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://portal.amfiindia.com/DownloadNAVHistoryReport_Po.aspx?" & url & "" _
, Destination:=range("$A$1"))
Below is the code I tried so far.
Sub Macro1()
Dim mf As Integer
Dim to_date As String
Dim from_date As String
Dim range As range
Dim url As String
to_date = Format(Sheets("sheet1").Cells(5, 10).Value, "dd-mmm-yyyy")
from_date = Format(Sheets("sheet1").Cells(8, 10).Value, "dd-mmm-yyyy")
mf = Application.WorksheetFunction.VLookup(Sheets("sheet1").ComboBox1.Value,
Worksheets("sheet1").range("A:B"), 2, False)
url = "mf=" & mf & "&tp=1&frmdt=" & to_date & "&todt=" & from_date
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://portal.amfiindia.com/DownloadNAVHistoryReport_Po.aspx?" & url & "" _
, Destination:=range("$A$1"))
.Name = _
"DownloadNAVHistoryReport_Po.aspx?mf=3&tp=1&frmdt=04-Mar-2014&todt=13-Aug-2018"
.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
Columns("A:A").Select
Selection.TextToColumns Destination:=range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), _
TrailingMinusNumbers:=True
End Sub