Fetch data on multiple page web

hi guys,

i am trying to fetch data from a webpage which has multiple pages like 2000 pages which contains 25 rows and 16 columns in a table...can this be extracted in one sheet? I am using the code below but what I do is just simply duplicate the code and change the page range and sheet to where the data will be placed. like

Sub fetchmultiplepages()
   
   With ActiveSheet.QueryTables.Add(Connection:= _
      "URL;https://myurl.com/test/url.jsp?action=find&sdate=2013-11-10&edate=2013-11-16&start=0&customer=johndoe", _
         Destination:=Range("a1"))
   
      .BackgroundQuery = True
      .TablesOnlyFromHTML = True
      .Refresh BackgroundQuery:=False
      .SaveData = True
   End With
End Sub

Sub fetchmultiplepages()
   
   With ActiveSheet.QueryTables.Add(Connection:= _
      "URL;https://myurl.com/test/url.jsp?action=find&sdate=2013-11-10&edate=2013-11-16&start=25&customer=johndoe", _
         Destination:=Range("a26"))
   
      .BackgroundQuery = True
      .TablesOnlyFromHTML = True
      .Refresh BackgroundQuery:=False
      .SaveData = True
   End With
End Sub

Sub fetchmultiplepages()
   
   With ActiveSheet.QueryTables.Add(Connection:= _
      "URL;https://myurl.com/test/url.jsp?action=find&sdate=2013-11-10&edate=2013-11-16&start=50&customer=johndoe", _
         Destination:=Range("a51"))
   
      .BackgroundQuery = True
      .TablesOnlyFromHTML = True
      .Refresh BackgroundQuery:=False
      .SaveData = True
   End With
End Sub

Sub fetchmultiplepages()
   
   With ActiveSheet.QueryTables.Add(Connection:= _
      "URL;https://myurl.com/test/url.jsp?action=find&sdate=2013-11-10&edate=2013-11-16&start=75&customer=johndoe", _
         Destination:=Range("a76"))
   
      .BackgroundQuery = True
      .TablesOnlyFromHTML = True
      .Refresh BackgroundQuery:=False
      .SaveData = True
   End With
End Sub

Notice that &start and Destination:=Range("a**")) changes...

https://myurl.com/test/url.jsp?action=find&sdate=2013-11-10&edate=2013-11-16&start=75&customer=johndoe", _
         Destination:=Range("a**"))

I have like 200 of this repeated declarations except that the start and the range changes...can somebody help me simplify this procedures?

Thanks in advance...