Obtener solo un dato desde web

Buenas, tengo esta macro para obtener el tipo de cambio de cualquier moneda que ponga en B4 contra el Euro, lo consigo con este código:

[/FONT][/COLOR][COLOR=#2E8B57][FONT=Monaco]Sub Macro1()[/FONT][/COLOR]

[COLOR=#2E8B57][FONT=Monaco]Dim currency1 As String[/FONT][/COLOR]

[COLOR=#2E8B57][FONT=Monaco]currency1 = ActiveSheet.Range("Currency")[/FONT][/COLOR]

[COLOR=#2E8B57][FONT=Monaco]With ActiveSheet.QueryTables.Add(Connection:= _[/FONT][/COLOR]

[COLOR=#2E8B57][FONT=Monaco]     "URL;http://uk.advfn.com/p.php?pid=fxcalculate&action=convert&amount=1&from=" & currency1 & "&to=EUR&btn=Convert", Destination:=Range("C1"))[/FONT][/COLOR]

[COLOR=#2E8B57][FONT=Monaco]    .FieldNames = True[/FONT][/COLOR]

[COLOR=#2E8B57][FONT=Monaco]    .RowNumbers = False[/FONT][/COLOR]

[COLOR=#2E8B57][FONT=Monaco]    .FillAdjacentFormulas = False[/FONT][/COLOR]

[COLOR=#2E8B57][FONT=Monaco]    .BackgroundQuery = True[/FONT][/COLOR]

[COLOR=#2E8B57][FONT=Monaco]    .RefreshStyle = xlInsertDeleteCells[/FONT][/COLOR]

[COLOR=#2E8B57][FONT=Monaco]    .SavePassword = False[/FONT][/COLOR]

[COLOR=#2E8B57][FONT=Monaco]    .SaveData = False[/FONT][/COLOR]

[COLOR=#2E8B57][FONT=Monaco]    .AdjustColumnWidth = True[/FONT][/COLOR]

[COLOR=#2E8B57][FONT=Monaco]    .Refresh BackgroundQuery:=False[/FONT][/COLOR]

[COLOR=#2E8B57][FONT=Monaco]End With[/FONT][/COLOR]

[COLOR=#2E8B57][FONT=Monaco]End Sub[/FONT][/COLOR][COLOR=#333333][FONT=Lucida Grande][/CODE]

[/font][/color][color=#333333][font=Lucida Grande]El problema es que me trae un montón de datos y yo solo quiero el dato que trae a la celda [/font][/color][color=#333333][font=Lucida Grande][b]G2[/b][/font][/color][color=#333333][font=Lucida Grande]. El otro problema que tengo es que cuando pulso más de una vez el botón me inserta los datos con nuevas columnas, en vez de sobreescribir los datos que estaban anteriormente.[/font][/color]

[color=#333333][font=Lucida Grande]Saludos.[/font][/color][color=#333333][font=Lucida Grande]

[/font][/color]

Currency.xls