Buenas tardes, necesito vuestra ayuda.

Tengo una columna donde hay valores numericos y ceros (de o3 a o100). Necesito que empezando de la celda o3, se copie ese valor a la celda A1, despues la o4 se copie a la A1 de nuevo,asi sucesivamente hasta la o100.Lo unico que debe saltarse los ceros. He intentado con la grabadora de macros, pero se hace muy largo.Supongo que sera con un bucle, pero no se hacerlo.

Adjunto el codigo de ejemplo.

Gracias

 Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=R[2]C[14]" 'copio valor o3
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=R[3]C[14]" 'copio valor o4
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=R[4]C[14]" 'copio valor 05
    Range("A2").Select

Sube un archivo en el cual expliques lo que necesitas.

 

Ahi va el excel

Calendario1.xlsm

Sub macro()

    Dim cont, ufh2 As Long
    With Hoja2
        ufh2 = .Range("O" & .Rows.Count).End(xlUp).Row
        
        For cont = 3 To ufh2
            If .Cells(cont, 15) <> 0 Then
                .Range("A1") = .Cells(cont, 15)
            End If
        Next cont
    End With
    
End Sub

Prueba el adjunto y comenta, pulsa flecha azul

Calendario1 prueba 1.xlsm

Perfecto, justo lo que necesitaba.Muchas gracias