Consolidar datos con una macro

Selection.Consolidate Sources:= _
"'C:\Documents and Settings\Administrador\Escritorio\[NUEVO2.xlsm]PENDIENTES'!R5C2:R1048576C7" _
, Function:=xlSum, TopRow:=False, LeftColumn:=True, CreateLinks:=False

pregunto lo siguiente estoy haciendo una macro para consolidar datas y tengo esta linea de codigo que se ejectuta perfectamente lo que sucede es que cuando cambio de computadora me tira error hay alguna forma para evitar esto y que funcione en cualquier computadora graciasss