Sub Claves() ' ' Claves Macro ' ' Acceso directo: Ctrl+Mayús+I ' Range("B16:B20").Select Selection.Copy Sheets("Octs").Select Range("A28").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True...