
Código:
Sub Macro1() Dim celda1, archivo archivo = Application.GetOpenFilename("Hoja Excel , *.xlsx*", _ , "Seleccione asignacion") Range("A1").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 2).Activate celda1 = Application.ActiveCell.Address Range("C1").Select ActiveCell.FormulaR1C1 = _ "=VLOOKUP(RC[-2],archivo!C1:C19,18,0)" Selection.Copy Range("C2:" & Replace(celda1, "&", "")).Select ActiveSheet.Paste End Sub