Prueba esto (guarda tu fichero antes de ejecutar este macro, por si las moscas):
Código:
Sub Ejemplo()
Range("A2").Select
For i = 1 To 100
Selection.Cut
ActiveCell.Offset(-1, 1).Select
ActiveSheet.Paste
ActiveCell.Offset(4, -1).Select
Next
End Sub
De nada
