|
Hola:
Por lo que mencionas, te envío esta macro que trabaja con una sola columna, porque tu pregunta es vaga.
Si falta algo, vuelves a consultar
Sub Copia()
'
ActiveCell.Offset(-2, 0).Range("A1").Select
Selection.Copy Destination:=ActiveCell.Offset(2, 0).Range("A1")
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.Copy Destination:=ActiveCell.Offset(2, 0).Range("A1")
ActiveCell.Offset(3, 0).Range("A1").Select
End Sub
Un saludo
Juan
|