Quería hacerlo de la siguiente manera:
Selection.FormulaR1C1 = Application.Goto(ActiveWorkbook.Sheets("TRASLADOS").Range("RangePara"))
Lo que quiero es que la selección que tengo actualmente quede con los valores del rango dinámico que cree en la hoja traslados llamado "RangePara".
El código completo seria:
Sheets("INVENTARIO").Select
ActiveSheet.Range("A1").Select
Range("A1").End(xlDown).Offset(500, 0).Select
ActiveCell.Value = "PARA"
ActiveCell.Offset(1, 0).Select
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(500, 0)).Select
Selection.FormulaR1C1 =
Application.Goto(ActiveWorkbook.Sheets("TRASLADOS").Range("RangePara"))