Obtener solo un dato desde web

[francis75]

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