Fetching Data from website

I have list of url in a column. I want to fetch data from all the links and store it in a excel sheet.
I have written code, the code fetches only 1 links data at a time. I want to loop that vba macro and fetch all the data at a time. Im pasting my code, im new to vba please someone help me. Thanks in advance.

	


















	
Sub FetchData()
  With ActiveSheet.QueryTables.Add(Connection:= _
    "URL;http://www.zoopla.co.uk/find-agents/estate-agents/company/cadman-homes-uk-ltd-9011/,", Destination:=Range("$G$1"))

    .FieldNames = True
    .RowNumbers = True
    .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
End Sub