Pues te garantizo que el pantallazo que te he puesto, es el resultado de ejecutar ese macro.
Vamos a comentarlo:
Código:
Sub Ejemplo()
'nos situamos en la celda A2
Range("A2").Select
'desde la fila 1 a la 100...
For i = 1 To 100
'cortamos el dato de la celda
Selection.Cut
'nos movemos una fila menos (-1) y una columna más (1)
'es decir, a la fila anterior, y a la columna de la derecha
ActiveCell.Offset(-1, 1).Select
'pegamos el dato en esa celda
ActiveSheet.Paste
'desde donde estamos, y donde hemos pegado el dato
'bajamos 4 filas (4), y una columna antes (-1)
ActiveCell.Offset(4, -1).Select
'seguimos con el bucle
Next
End Sub
Edito, para comentar que estaba con mil cosas a la vez, y no vi tu respuesta anterior, donde ya habías solucionado el tema.