Macro para copiar texto a celdas alternas

Hola! Josa
Podrías intentar con:
_____________________

Sub Copia_Y_Pega()
Dim Rng1 As Range, Cell2 As Range, ii As Long
On Error Resume Next
Set Rng1 = Application.InputBox("Selecciona el rango de datos",
Type:=8)
If Rng1 Is Nothing Then Exit Sub
Set Cell2 = Application.InputBox("Y ahora selecciona la primera celda
destino", Type:=8)
If Cell2 Is Nothing Then Exit Sub
On Error GoTo 0
For ii = 1 To Rng1.Count
Cell2.Offset(50 * (ii - 1)) = Rng1(ii)
Next ii
MsgBox "Proceso terminado"
Set Rng1 = Nothing
Set Cell2 = Nothing
End Sub
_____________________

Saludos, Cacho R.

On 11 jul, 13:53, josasap wrote:

Hola, tengo un problema, tengo una columna con 150 nombres y me gustaria
 copiarla a otra columna pero con 50 espacios entre celda y celda.

 En java sabria pogramarlo, pero en macros me esta resultando algo dificil
porque
 no entiendo muchas palabras reservadas que tiene excel. Lo que me gustaria
hacer
 en c o en java seria mas o menos asi:

 int i=1, int j=9

 while(i<151){

 //copiar contenido C(i) en A(j)

 i++;

 j=j+50;

 }

 Eso seria lo que quiero hacer mas o menos, tambien decir que el contenido de
las
 celdas son nombres.

 Muchas gracias.