lu_ca_va

Anónimo respondió: Esta macro te lo hace en menos de un segundo Sub MyMacro() Range("c2").Select For i = 1 To 3 Do Until ActiveCell.Value = "" ActiveCell.Offset(0, 1).Select ActiveCell.Copy ActiveCell.Offset(1, 0).Select ActiveSheet.Paste Application.CutCopyMode =...