Juan Carlos González Chavarría respondió:
a), puedes utilizar el siguiente código para ayudarte: Sub CopiaCelda() Application.ScreenUpdating = False Range("A1").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Range("IV1").End(xlToLeft).Offset(0, 1).Select...