Makro hente data fra internet

I Ark 1 vil jeg i celle A1 indsætte data fra internet.
På Ark 2 i celle A1 står den url fra det sted der skal hentes data.

Jeg har indspillet en makro som virker fint til ovenstående.

Sub test2()
'
' test2 Makro
'

'
Sheets("Ark2").Select
ActiveCell.FormulaR1C1 = _
"http://statletik.dk/ (...)
Sheets("Ark1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://statletik.dk/ (...) _
, Destination:=Range("$A$1"))
.Name = _
"rangliste.php?sex=12&underdisc=&event=lsz_m&year=2012&button=Find+liste_2"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "4"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub

Jeg har følgende problemer/ønsker:

1: Hvis jeg ændrer url'en i ark2 celle A1 - så er det stadig de samme data der hentes og ikke de nye - det skyldes selvfølgelig at makroen ikke henter indholdet fra A1, men blot under indspildningen er blevet statisk - hvordan får jeg den til at hente urlen fra Ark2 A1?

2: Jeg vil gerne tilføje url'er i Ark 2 kolonne A - hvordan får jeg så makroen til at hente url'en fra A1 indsætte data - hente url'en i A2 - indsætte disse data under dem der er hentet osv?