dim Local as Range
dim Visitante as Range
dim DummyStr as string
dim i as integer
set local = range("Hoja1!A1") 'Donde esta el primer vinculo
dummystr = "xxx"

i= 1
do 

dummystr = local.cells(i,1).text

if dummystr <>  "" then

set visitante = range(dummystr & "!C1") ' o sea, el nombre de la hoja
'más el rango fijo de cada hoja

'copia de datos

local.cells(i,1).value = visitante.cells(1,1)
local.cells(i,2).value = visitante.cells(1,2)
local.cells(i,3).value = visitante.cells(1,3) ' si fueran muchos un bucle
' ya estan copiados


end if
i=i+2 'más 2 porque te saltas donde tienes el vinculo

'si no dejaste el espacio se complica un poquito....jejeje
'metes esta linea antes local.entyrerow(rowindex:=i).insert

loop until dummystr = "" 'Celda Vacia