Copia de valores uno por uno

[ColdGeorge]

Hola amigos

Tengo una lista de valores digamos en A1:A10, busco seleccionar tres valores y copiarlos, el primer valor seleccionado a digamos C1, el segundo valor a C3 y el tercer valor a C5, pensé que sería sencillo, utilicé este código:

For Each cell In Selection
    Sheets("pruebas").Range("C1, C3, C5") = cell.Value
Next cell

Pero únicamente copia el último valor a las celdas c1, c3 y c5, definitivamente que For/Next no me es útil, ¿cuál es la mejor manera de alcanzar mi objetivo? gracias por su ayuda, saludos.

ColdGeorge

 

[ColdGeorge]

Hola Greg
Inicialmente, iba a seleccionar valores de una columna y copiarlos a otra, la misma acción se realizaría un total de tres veces, las columnas de destino son B, C y D, hasta pensé en que tenía que emplear tres instrucciones, pero creo que con UNA sola instrucción que ofrezca tres opciones debería ser suficiente, ya que el proceso de realiza uno a la vez, empezando a pegar valores en la columna B.
ColdGeorge