Web Query

[donlincolnmre2]

Hello

I have a spreadsheet with urls that I want excel function to download.

url dummy data
==========

1020 FAREL AVE in Walnut, CA | PeopleFinder.com.
1020 N PARK AVE in Inglewood, CA | PeopleFinder.com.
1020 S OAK FOREST LN in Pasadena, CA | PeopleFinder.com.
http://www.peoplefinder.com/reverse-address-lookup/10223 OLNEY ST/EL MONTE/CA


I’m able to download the data when I press f2 and then select the url and copy into buffer and then go to the next sheet and select DATA from the menu and then
get external data
new web query
and paste the url in address bar
and then select THE ENTIRE PAGE
and theFULL HTML FORMATTING

Doing it manually is too much.

Is there a way to automate the process till all the urls are downloaded.

Below is part of the marco code



Sub Macro1()
'
' Macro1 Macro
' Macro recorded 6/2/2017 by don
'
' Keyboard Shortcut: Ctrl+t
'
ActiveSheet.Next.Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.peoplefinder.com/reverse-address-lookup/10128 LEMONA AVE/MISSION HILLS/CA" _
, Destination:=Range("A1"))
.Name = "CA_7"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingAll
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:=False
End With
End Sub


Any help would be greatly appreciated.

Thanks.