Actividad pública reciente
Ha valorado "Buena" la respuesta
Botón asociado a línea
Puedes usar Selection.Insert Shift:=xlDown O bien Sheets("hoja2").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
Ha empezado a seguir a 
d2enri
d2enri