Copiar celdas impares y pegarlas en celdas pares de otra columna

[howling]

Necesito de su ayuda ya que tengo un archivo en donde tengo datos los cuales necesito copiar y pegar en otra columna, los datos en cuestión son generados de una aplicación que los scanean y los ponen en una misma columna por ejemplo en la celda A2 me deja el código y en la siguiente A3 la cantidad y así sucesivamente y lo que necesito es que me copie las celdas impares y me las pegue en la columna b, pero en las celda pares por ejemplo si la cantidad esta en la celda A3 me la copie y la deje en la celda B2

Espero haberme explicado lo más claro posible gracias de ante mano

prueba.xlsx

[Leopoldo Blancas]

Hola howling,

Por formulas:

1. En B2 pon =A3
2. Seleccionas B2 y B3 y arrastras hacia abajo.

Por Macros:

Sub Copiar()
Dim n&
    n = 3
    Do While Cells(n, 1) <> Empty
        Cells(n - 1, 2) = Cells(n, 1)
        n = n + 2
    Loop
End Sub

Saludos.

[howling]

gracias era lo que nesecitaba doy por terminado este tema