Mover rangos que cambian a diferentes puntos de la hoja

[Bazzi]

Hola a todos,

Estoy haciendo unas macros en Excel en VBA y necesito mover un rango que va cambiando de columna a un punto diferente en los renglones.

Es decir: D1:D15 lo quiero ahora en B60
Luego E1:E15 en B75
Luego F1:F15 en B90

Etc.

¿Alguién podría ayudarme? Mil gracias

Bazzi

[mrocf]

Hola! Bazzi.
El siguiente código puede ayudarte:

Código vb:

Sub Macro774()
Dim C As Range
For Each C In [d1:f1]
C.Resize(15).Cut Cells(15 * C.Column, "B")
Next C
End Sub
 

Saludos, Cacho.